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This publication is directed to program- 3. 
mers using either the IBM System/360 
FORTRAN IV (G) or FORTRAN IV (H) compiler. 
It explains how to compile, linkage edit, 
and execute programs under control of the 
IBM System/360 Operating System. The 
FORTRAN IV language is described in the 
publication IBM System/360 FORTRAN IV Lan- 
quage, Form GC28-6515, which is a corequi- 
site to this publication. 


Most of the information contained in 
this guide is common to both the FORTRAN IV 
(G) and FORTRAN IV (H) compilers. Where 
differences exist, they are clearly marked. 


Paragraphs or sections applicable to the 
(G) compiler, but not the (H), are desig- 
nated throughout this publication by the 
symbol : 


oe eee ee ae se 


Conversely, paragraphs or sections appli- 
cable to the (H) compiler, but not the (G), 
are designated by the symbol: 


ee ee ae eae ae 


The programmer*s guide is designed to 
provide programmers with information at 
three levels of complexity. 


1. Programmers who will use the cataloged 
procedures as provided by IBM should 
read the "Introduction" and "Job Con- 
trol Language” sections to understand 
the job control statements, the 
“FORTRAN Job Processing" section to 
understand the use of cataloged proce- 
dures, the “Programming Considera- 
tions" section to be able to use the 
FORTRAN language correctly and effi- 
ciently, and the "System Output" sec- 
tion to understand the listings, maps, 
and messages generated by the compil- 
er, the linkage editor, and a load 
module. 


2. Programmers who, in addition, are con- 
cerned with creating and retrieving 
data sets, optimizing the use of I/0 
devices, or temporarily modifying IBM- 
supplied cataloged procedures should 
read the entire programmer's guide. 


PREFACE 


Programmers who are concerned with 
making extensive use of the operating 
system facilities, such as writing 
their own cataloged procedures, modi- 
fying the FORTRAN library, or calcu- 
lating region sizes for operating in 
an MVT environment, should also read 
the entire programmer's guide in con- 
junction with the following publica- 
tions, as required: : 


IBM System/360 Operating Syster: 


Job Control Language Reference, 
Form GC28-6704 


IBM System/360 Operating System: 


Job Control Language User's Guide, 
Form GC28-6703 


IBM System/360 Operating System: 
Concepts and Facilities, Form 
GC 28-6535 


IBM System/360 Operating System: 


System Programmer‘s Guide, Form 
GC 28-6550 


IBM System/360 Operating System: 
Supervisor and Data Management Ser- 
vices, Form GC28-6646 





IBM System/360 Operating System: 


Supervisor and Data Management 
Macro Instructions, Form GC28-6647 


IBM System/360 Operating System: 
Utilities, Form GC28-6586 


IBM System/ 360: FORTRAN IV 
Library: Mathematical and Service 
Subprograms, Form GC28-6818 


IBM System/360 Operating System: 


Linkage Editor and Loader, Form 
GC 28-6538 


IBM System/360 Operating System: 
System Generation, Form GC28-6554 


IBM System/360 Operating System: 
Operator's Guide, Form GC28-6540 


IBM. System/360 Operating System: 
Messages and Codes, Form GC28-6608 


IBM System/360 Operating System: 


Programmer's Guide to Debugging, 
Form GC28-6670 


IBM System/360 Operating System: 
Storage Estimates, Form GC28-6551 


tha 


This publication contains appendixes 
t provide the programmer with the fol- 


lowing information: 


Descriptions and explanations of com- 
piler invocation from a problem 
program. | 


Examples of job processing. 


Descriptions and explanations for the 
preparation of subprograms written in 
assembler language for use with a main 

program written in FORTRAN. 


Descriptions of the diagnostic messages 
produced during compilation and load 
module execution. 


A list of American National Standard 
carriage control characters. 


® A list of input/output unit types. 


A description of the FORTRAN IV (H) 
optimization features. 


e A description of the FORTRAN IV (G) 
debug facility. 


e A discussion of FORTRAN programming 
considerations for the user of the IBM 
System/360 Models 91 and 195. 


For easier reading, the titles of publi- 
cations referred to in this publication are 
abbreviated. For example, references to 


the publication IBM System/360 Operating 
System: Linkage Editor and Loader are 


abbreviated to Linkage Editor and Loader 
publication. 
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The IBM System/360 Operating System con- 
sists of a control program and processing 
programs. The control program supervises 
execution of all processing programs, such 
as the FORTRAN compiler, and all problem 
programs, such as a FORTRAN program. 
Therefore, to execute a FORTRAN program, 
the programmer must first communicate with 
the operating system. The medium of com- 
munication between the programmer and the 
operating system is the job control 
language. 


The programmer uses job control state- 
ments to define two units of work -- the 
job and the job step -- to the operating 
system and to define the files (data sets) 
used in these jobs and job steps. He 
defines a job to the operating system by 
using a JOB statement; a job step by using 
an EXEC statement; and a data set by using 
a DD statement. 


JOB AND JOB STEP RELATIONSHIP 


To the operating system, a job consists 
of executing one or more job steps. In the 
simplest case, a job consists of one job 
step. For example, executing a FORTRAN 
main program to invert a matrix is a job 
consisting of one job step. 


In more complex cases, one job may con- 
sist of a series of job steps. For 
example, a programmer is given a tape con- 
taining raw data from a rocket firing: he 
must transform this raw data into a series 
of graphs and reports. Three steps may be 
defined: 


1. Compare the raw data to projected data 
and eliminate errors which arise 
because of intermittent errors in 
gauges and transmission facilities. 


2. Use the redefined data and a set of 
parameters as input to a set of equa- 
tions, which develop values for the 
production of graphs and reports. 


3. Use the values to plot the graphs and 
print the reports. 


Figure 1 illustrates the rocket firing 
job with three job steps. 


In the previous example, each step could 
be defined as a separate job with one job 
step in each job. However, designating 
related job steps as one job is more effi- 
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cient: processing time is decreased 
because only one job is defined, and inter- 
dependence of job steps may be stated. 

(The interdependence of jobs cannot be 
stated. ) 
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Figure 1. Rocket Firing Job 
FORTRAN PROCESSING AND CATALOGED PROCEDURES 


When a programmer writes a FORTRAN pro- 
gram, the objective is to obtain a problem 
solution. However, before the program can 
provide this solution, the program itself 
must undergo processing. The source pro- 
gram (source module) is compiled to give an 
object module; and the object module is 
linkage edited to give a load moaule.? This 
load module is then executed to give the 
desired problem solution. 


If each of the three steps involved in 
processing a FORTRAN module is a job step 
in the same job, a set of job control 
statements that consists of one EXEC state- 
ment and one or more DD statements is 


ee ee ane ee ee te ee ee ee ee ee ee ee oe ee oe me ee ee 


4As an alternative, the object module may 
be edited and then automatically executed 
by the loader, another IBM-supplied pro- 
gram. Details on the use of the loader 
can be found in the section “Loader 
Processing." 
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required for each step. Because writing 
these job control statements can be time- 
consuming work for the programmer, IBM sup- 
plies cataloged procedures to aid in the 
processing of FORTRAN modules. A cataloged 
procedure consists of a procedure step or.a 
series of procedure steps. Each step con- 
tains the necessary set of job control 
statements to compile or to linkage edit or 
to execute a FORTRAN module. (Note: A JOB 
statement cannot be cataloged.) 


For each compiler, IBM provides five 
cataloged procedures. The procedures and 
their uses are shown in Table 1. 


Any of the cataloged procedures can be 
invoked by an EXEC statement in the input 
stream. In addition, each of the proce- 
dures can be temporarily modified by this 
EXEC statement and any DD statements in the 
input stream; this temporary modification 
is called overriding. 


Table 1. Cataloged Procedure-Names and 
Functions 
fon eee ee 1 
| Procedure-Name_ | 
~~------y--------- $-------2-------------4 
| FORTRAN G| FORTRAN H| Function | 
}--~--~--- 4--------- $~-------------------- 1 
--------- {---------4---------------------4 
| FORTGC | FORTHC | compile | 
~-~----~-4--------- 4---------------------4 
|FORTGCL |FORTHCL |compile and linkage | 
| | | edit | 
[--------- $--------- }--------------------- { 
| FORTGLG |FORTHLG |linkage edit and | 
| | | execute | 
}---------}--------- $--------------------- 1 
| FORTGCLG |FORTHCLG |compile, linkage | 
| | | edit, and execute | 
|--------- 4--------- 4--------------------- { 
| FORTGCLD ace ohana asompi ts and load | 
a a as te i Ta eet ee A ree eae 4 


DATA SETS 


For FORTRAN processing, a programmer 
uses DD statements to define the particular 
data set(s) required for a compile, linkage 
edit, or execute step. In the operating 
system, a data set is a named, organized 
collection of one or more records that are 
logically related. For example, a data set 
may be a source module, a library of mathe- 
matical functions, or the data processed by 
a load module. 


Data Set Organization 


A data set in FORTRAN may be one of 
three types: sequential, partitioned or 
direct-access. : 
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A sequential data_set is one in which 
records are accessed solely on the basis of 
their successive physical positions. A 
sequential data set may reside on cards, 
tape, or disk. The compiler, linkage edi- 
tor,.and load modules process sequential 
data sets. The compiler uses the queued 
sequential access method (QSAM) for such 
processing, and load modules use the basic 
sequential access method (BSAM) for object 
time I/O operations. (For additional 
paateredaee leoh on access naheeNty see the 


arene ye "Order No. ae aae 6646.) 


A partitioned data_set (PDS) is composed 
of named, independent groups of sequential 
data and resides on a direct-access volume. 
A directory index resides in the PDS and 
directs the operating system to any group 
of sequential data. Each group of sequen- 
tial data is called a member. Partitioned 
data sets are used for storage of any type 
of sequentially organized data. In partic- 
ular, they are used for storage of source 
and load modules (each module is a member). 
In fact, a load module can be executed only 
if it is a member of a partitioned data 
set. A PDS of load modules is created by 
either the linkage editor or a utility pro- 
gram A PDS is accessible to the linkage 
editor; however, only individual members of 
a PDS are accessible to the compiler. Mem- 
bers Of a PDS are accessible to a FORTRAN 
load module; however, concurrent processing 
of two or more members of the same PDS is 
not supported. Sequential processing of 
two Or more members is permitted if one 
member is closed before the other is pro- 
cessed. See the discussion "Partitioned 
Data Set Processing" for details on acces- 
sing partitioned data sets. 


The FORTRAN library is a cataloged PDS 
that contains the library subprograms in 
the form of load modules. SYS1.FORTLIB is 
the name given to this PDS. 


To process a member of a partitioned 
data set, the programmer must use the DD 
statement to provide information about the 
data set and the member. The programmer 
must specify (in the DSNAME parameter) both 
the name of the data set and of the member, 
and must indicate (in the LABEL parameter) 
if the member is to be created or retri- 
eved. However, if the programmer requests 
the FORTRAN compiler to process a parti- 
tioned data set (for example, to compile a 
source deck stored as a member of a parti- 
tioned data set) no LABEL information need 
be specified. 


Note that the processing of a parti- 
tioned data set is limited to READ or WRITE 
operations only. The programmer is not 
permitted both to READ and WRITE the same 
data set in a single program. 





A direct-access data _ set contains rec- 
ords that are read or written by specifying 
the position of the record within the data 
set. When the position of the record is 
indicated in a FIND, READ, or WRITE state- 
ment, the operating system goes directly to 
that position in the data set and either 
retrieves, reads, or writes the record. 

For example, with a sequential data set, if 
the 100th record is read or written, all 
records preceding the 100th record (records 
1 through 99) must be transmitted before 
the 100th record can be transmitted. With 
a direct-access data set the 100th record 
can be transmitted directly by indicating 
in the I/O statement that the 100th record 
is to be transmitted. However, ina 
direct~-access data set, records. can be 
transmitted by FORTRAN direct=access I/0 
statements only; they cannot be transmitted 
by FORTRAN sequential I/0 statements. Rec- 
ords in a direct-access data set can be 
transmitted sequentially by using the asso- 
ciated variable in direct-access I/0 
statements. 


A direct-access data set must reside on 
a direct-access volume. Direct-access data 
sets are processed by FORTRAN load modules; 
the compiler and linkage editor cannot 
process direct-access data sets. Load: 
modules process data sets of this type with 
the basic direct-access method (BDAM). 


Data Set Labels 


Data sets that reside on direct-access 
volumes have standard labels only; data 
sets that reside on magnetic tape volumes 
can have standard labels or no labels. 
Information, such as a data set identifier, 
volume sequence number, record format, 
density, etc., is stored in the data set 
labels. The information required in a DD 
statement used to retrieve a labeled data 
set is substantially less than in one used 
to retrieve an unlabeled data set. 


Data Set Cataloging 


To relieve the programmer of the burden 
of remembering the volume on which a 
particular data set resides, the operating 
system provides a cataloging facility. 
When a data set is cataloged, the serial 
number of its volume is associated in the 
catalog with the data set name. A pro- 
grammer can refer to this data set without 
specifying its physical location. Any data 
set residing on a direct-access or magnetic 
tape volume can be cataloged. 


Sequential, partitioned, and direct- 
access data sets can be cataloged; however, 
an individual member. of a PDS cannot be . 
cataloged because a member is not a data 
set. : : 
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JOB CONTROL LANGUAGE 


‘The FORTRAN programmer uses the job con- 
trol statements shown in Table 2 in compil- 
ing, linkage editing, and executing 
programs. 


JOB MANAGEMENT 


Job control statements are processed by 
a group of operating system routines known 
collectively as job management. Job man- 
agement routines interpret control state- 
ments, control the flow of jobs, and issue 
messages to both the operator and the pro- 


grammer. Job management has two major com- 
ponents: a job scheduler and a master 
scheduler. 

Table 2. Job Control Statements 

an ee al aa a an a a i a 1 
| Statement 1 Function i] 
| JOB | Indicates the beginning of a | 
| [new job and describes that job| 
[EXEC jindicates a job step and de- 


| [scribes that job step; indi- 
| [cates the cataloged procedure 


| jor load module to be executed 


| 
| 
| 
| 
Spams aaa fa 1 
| 
| 
| 


| DD [Describes data sets, and con- 

| {trols device and volume 

| | assignment 

|delimiter |Separates data sets in the in-| 
| {put stream from control state-| 
| jments; it appears after each | 

| jdata set in the input stream | 
|----------}------------------------------ { 

| comment |Contains miscellaneous | 

| |xemarks, annotations, etc., | 
| jwritten by the programmer; it | 
| |can appear before or after any| 
| |control statement. 

Liseelee ee a ace a a ar J 
poo - - - - + +--+ + +--+ 
| FORMAT 
|--------------~------ 


|7/Name Operation Operand [Comment] 
{77 Operation Operand [Comment] 
| 


|7* [Comment] 


| 
lech cement? 
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2e Job Control Statement Formats 


The specific facilities available 
through the job scheduler and the master 
scheduler depend on the scheduling level 
the installation selects during system 
generation. Schedulers are available at 
two levels -- the sequential: scheduler and 
the priority scheduler. 


Sequential schedulers process job steps 
one at a time in the order of their 
appearance in the input stream. Operating 
systems with a primary control program 
(PCP) use sequential schedulers. 


Priority schedulers are used by systems 
that provide multiprogramming with a fixed 
number of tasks (MFT) or multiprogramming. 
with a variable number of tasks (MVT). 
Priority schedulers process complete jobs 
according to their relative priority within 
job classes. Priority schedulers can 
accept input data from more than one input 
stream. 





CODING JOB CONTROL STATEMENTS 


Except for the comment statement, con- 
trol statements contain two identifying 
characters (// or /*) in card columns 1 and 
2. The comment statement is identified by 
the initial characters //* in card columns 
1, 2, and 3. Control statements may con- 
tain four fields -- name, operation, 
operand, and comments (see Figure 2). 


NAME FIELD 


The name field contains between one and 
eight alphameric characters, the first of 
which must be alphabetic. The name field 
begins in card column 3 and is followed by 
one or more blanks to separate it from the 
operation field. The name field is used: 


“i io ; 
EXEC, DD | 
delimiter | 
comment 


1. To identify the control statement to 
the operating system. 


2. To enable other control statements in 
the job to refer to information con- 
tained in the named statement. 


3. To relate DD statements to I/O state- 
ments in the load module. 


OPERATION FIELD 


The operation field contains one of the 
following operation codes: 


JOB 
EXEC 
DD 


or, if the statement is a delimiter or com- 
ment statement, the operation field is 
blank. The operation code is preceded and 
followed by one or more blanks. 


QOPERAND FIELD 


The operand field contains the parame- 
ters that provide required and optional 
information to the operating system. 
Parameters are separated by commas, and the 
operand field is ended by placing one or 
more blanks after the last parameter. 

There are two types of parameters, posi- 
tional and keyword. 


Positional Parameters: Positional parame- 

ters are placed first in the operand field 

and must appear in the specified order. If 
a positional parameter is omitted and other 
positional parameters follow, the omission 

must be indicated by a comma. 


Keyword Parameters: Keyword parameters 
follow positional parameters in the operand 


field. (If no positional parameters 
appear, a keyword parameter can appear 
first in the operand field; no leading 
comma is required.) Keyword parameters may 
appear in any order. If a keyword parame- 
ter is omitted, a comma is not required to 
indicate the omission. 


Subparameters: Subparameters are either 
positional or keyword and are noted as such 
in the definition of control statements. 


Positional subparameters appear first in 
a parameter and must appear in the speci- 
fied order. If a positional subparameter 
is omitted and other positional subparame- 
ters follow, the omission must be indicated 
by a comma. 


Keyword subparameters follow positional 
subparameters in a parameter. (If no posi-~ 
tional subparameters appear, a keyword sub- 
parameter can appear first in the parame- 
ter; no leading comma is required.) Key- 
word subparameters may appear in any order. 
If a keyword subparameter is omitted, a 
comma is not required to indicate the 
omission. 


COMMENTS FIELD 


The comments field can contain any 
information considered helpful by the pro- 
grammer. Comments, except for those on a 
comment statement, must be separated from 
the operand field (or the * in a delimeter 
statement) by at least one blank; they may 
appear in the remaining columns up to and 
including column 71. 


Continuing Control Statements 


Except for the comment statement, which 
is contained in columns 1 through 80, con- 
trol statements are contained in columns 1 
through 71. of cards or card images. If the 
total length of a statement exceeds 71 
columns, or if parameters are to be placed 
on separate cards, operating system con- 
tinuation conventions must be followed. To 
continue an operand field: 


1. Interrupt the field after a complete 
parameter or subparameter (including 
the comma that follows it) at or 
before column 71. 


2. Include comments, if desired, by fol- 
lowing the interrupted field with at 
least one blank. 


3. Optionally, code any nonblank charac- 
ter in column 72. If a character is 
not coded in column 72, the job 
scheduler treats the next statement as 
a continuation statement if the con- 
ventions outlined in points 4 and 5 
are followed. 


4 Code the identifying characters // in 
columns 1 and 2 of the following card 
or card image. 


5. Continue the interrupted operand 
beginning in any column from 4 through 
16. 


Note: Excessive continuation cards should 


be avoided whenever possible to reduce 
processing time for the control program. 
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Comments can be continued onto addition- 
al cards after the operand has been com- 
pleted. To continue a comments field: 


1. Interrupt the comment at a convenient 
place. 


2. Code a nonblank character in column 
72. 


3. Code the identifying characters // in 
columns 1 and 2 of the following card 
or card image. 


4. Continue the comments field beginning 5. 
in any column after column 3. 


Note: The comment statement cannot be 
continued. 


NOTATION FOR DEFINING CONTROL STATEMENTS 


The notation used in this publication to 
define control statements is described in 
the following paragraphs. 6. 


1. The set of symbols listed below are 
used to define control statements, but 
are never written in an actual 
statement. 


a. hyphen = 
be or I 
ce underscore cs 
d. braces { 
e. brackets if 
f. ellipsis oe 
ge superscript a 


© had 


The special uses of these symbols are 
explained in paragraphs 4-10. 
: P : 7 * 

2 Uppercase letters and words, numbers, 
and the set of symbols listed below 
are written in an actual control 
statement exactly as shown in the 
statement definition. (Any exceptions 
to this rule are noted in the defini- 
tion of a control statement.) 


ae apostrophe . 
b. asterisk * 
ce. comma 

d. equal sign 


is 
fee) 
) 


ee. parentheses () 
ff. period ‘ 
ge sSlash-> / 


3. Lowercase letters, words, and symbols 
appearing in a control statement 
definition represent variables for 
which specific information is substi- 
tuted in the actual statement. 
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Example: If name appears in a state- 
ment definition, a specific value 
(e.g., ALPHA) is substituted for the 
variable in the actual statement. 


Hyphens join lowercase letters, words, 
and symbols to form a single variable. 


Example: If member-name appears in a 


“statement definition, a specific value 


(e.g., BETA) is substituted for the 
variable in the actual statement. 


Stacked items or items separated from 
each other by the “or" symbol repre- 
sent alternatives. Only one such 
alternative should be selected. 


Example: The two representations 


A 
B and A|B[C 
Cc 


have the same meaning and indicate 
that either A or B or C should be 
selected. 


An underscore indicates a default 
option. If an underscored alternative 
is selected, it need not be written in 
the actual statement. 


Example: The two representations 


and A|BIC 


Qld 


have the same meaning and indicate 
that either A or B or C should be 
selected; however, if B is selected, 
it need not be written, because it is 
the default option. 


Braces group related items, such as 
alternatives. 


Example: ALPHA=({A|B|C},D) 


indicates that a choice should be made 
among the items enclosed within the 
braces. If A is selected, the result 
is ALPHA=(A,D). If C is selected, the 
result can be either ALPHA=(,D) or 
ALPHA=(C,D). 


Brackets also group related items; 
however, everything within the brack- 
ets is optional and may be omitted. 


Example: ALPHA=({A|B|C],D) 


indicates that a choice can be made 
among the items enclosed within the 
brackets or that the items within the 
brackets can be omitted. If Bis 


selected, the result is ALPHA=(B,D). 
If no choice is made, the result is 
ALPHA=(,D). 


9. An ellipsis indicates that the preced- 
ing item or group of items can be 
repeated more than once in succession. 


Example: ALPHA[, BETA]... 


indicates that ALPHA can appear alone 
Or can be followed by ,BETA optionally 
repeated any number of times in 
succession. 


10. A superscript refers to a description 
in a footnote. 


Example: NEN )* 
OLD 
a 
SHR 


indicates that additional information 
concerning the grouped items is con- 
tained in footnote number 1. 


11. Blanks are used to improve the reada- 
bility of control statemént defini- 
tions. Unless otherwise noted, blanks 
have no meaning in a statement 
definition. 


JOB_ STATEMENT 


The JOB statement (Figure 3) is the 
first statement in the sequence of control 
statements that describe a job. The JOB 
statement contains the following 
information: 


1. Name of the job. 


2. Accounting information relative to the 
job. 


3. Programmer‘s name. 


4, Whether the job control statements are 
printed for the programmer. 


5. Conditions for terminating the execu- 
tion of the job. 


6. A job priority assignment. 


7. Output class for priority scheduler 
mMeSSagesS « 


8. Specification of main storage require- 
ments for a job. 


9. Specification of the maximum amount of 
time to be allotted for a job. 


Examples of the JOB statement are shown 
in Figure 4. 


NAME FIELD 


The "“jobname™ must always be specified; 
it identifies the job to the operating sys- 
tem. No two jobs being handled concurrent- 
ly by a priority scheduler should have the 
same "jobname". 


OPERAND FIELD 


Job Accounting Information 


The first positional parameter can con- 
tain the installation account number and 
any parameters passed to the installation 
accounting routines. These routines are 
written by the installation and inserted in 
the operating system when it is generated. 
The format of the accounting information is 
specified by the installation. 


As a system generation option with 
sequential schedulers, the account number 
can be established as a required parameter. 
With priority schedulers, the requirement 
can be established with a cataloged proce- 
dure for the input reader. (Information on 
the cataloged procedure for the input read- 
er and on how to write an accounting rou- 
tine may be found in the System Program- 
mer's Guide, Form GC28~-6550.) Otherwise, 
the account number is optional. 





Programmer's Name 


The “programmer name" is the second 
positional parameter. If no job accounting 
information is supplied, its absence must 
be indicated by a comma preceding the pro- 
grammer's name. If neither job accounting 
information nor programmer's name is 
present, commas need not be used to indi- 
cate their absence. 


This parameter is optional unless it is 
made mandatory at the installation in the 
same way as job accounting information is 
made mandatory. 
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| Name | Operation |Operand 
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| | | Positional Parameters 
//jobname| JOB | (( Laccount-number] [, accounting-information])1 2 3] 


{,programmer-name]“* 5 6 


Keyword Parameters 
(MSGLEVEL= (x, y) ]7 
{COND=( (code, operator) [, (code, operator) J... 2) 9] 
[PRTY=nn}2° 


[MSGCLASS=x] 2° 


(REGION=( \nnnnnkK {, value, K])))12 
value oK 


| +1I1f£ the information specified (“account-number" and/or “accounting-information") con- 
| tains blanks, or any special characters other than hyphens, it must be delimited by 
| apostrophes instead of parentheses. 

| 21f only “account-number" is specified, the delimiting parentheses may be omitted. 

| *The maximum number of characters allowed between the delimiting parentheses or apos- 
| trophes is 142. 
| *If “programmer-name" contains blanks, or any special characters other than periods, 
| it must be enclosed within apostrophes. 

| SWhen an apostrophe is contained within “programmer-name", the apostrophe must be 

{| shown as two consecutive apostrophes. 
| 

| 

| 

| 

[ 

| 

\ 

| 

| 


A NL SY SS SY SO SY NY SEY SORE NN RN SY SS AG A SE NN SO SS GA SS EY cS NY SY SS SE SNS SN OS SE SN Se SO YS EA I SR 


6The maximum number of characters allowed for “programmer-name“ is 20. 
7The symbol x represents a job control language message code and may be specified as 
0, 1, or 2; y represents a job scheduler allocation message code and may be speci- 
fied as 0 or 1. 
®8The maximum number of repetitions allowed is 7. 
®If only one test is specified, the outer pair of parentheses may be omitted. 
2°This parameter is used with priority schedulers only. The sequential scheduler 
ignores it. 
14This parameter is used with MVT priority schedulers only. 
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4 
14 
| 
~ 
a 
=] 
F 
cr 
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Ms 
n 
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a 
° 
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Sample Coding Form 


ee eNO eda eiieeOe i Bes RO BIS OO 8 nf OO Ol 10 60k 
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JIPROGZ JOB 1987F-21>2COND#(79 LT) 2PRTY #1 9REGION=166 











Figure 4. Sample Job Statements 
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Control Statement, Allocation, and 
Termination Messages 


The MSGLEVEL parameter indicates the 
type of messages the programmer wishes to 
receive from the control program. 


MSGLEVEL= (x, y) 
The letter x represents a job control 
language message code. The value of x 
may be 0, 1, or 2. When x=0, only the 
JOB statement, control statement 
errors, and diagnostics appear on SYS- 
OUT. When x=1, input statements, 
cataloged procedure statements, and 
symbolic substitutions of parameters 
appear. When x=2, only input state- 
ments appear. 


The letter y represents an allocation 
message code. The value of y may be 0 
or 1. When y=0, no allocation or ter- 
mination messages appear, if the pro- 
gram completes execution. In the 
event of an abnormal termination, only 
termination messages appear. When 
y=1, allocation, termination, and 
recovery messages all appear. 


If MSGLEVEL is omitted, the default 
values assigned are those established 
at system generation time for PCP or 
from the reader procedure ina multi- 
programming environment. 


Conditions for Terminating a_Job 


At the completion of a job step, a code 
is issued indicating the outcome of that 
job step. This generated code is tested 
against the conditions stated in control 
statements. 


The COND parameter of the JOB statement 
specifies conditions under which a job is 
terminated. Up to eight different tests, 
each consisting of a code and an operator, 
may be specified to the right of the equal 
sign. The code may be any number between 0 
and 4095. The operator indicates the 
mathematical relationship between the code 
placed in the JOB statement and the codes 
issued by completed job steps. If the 
relationship is true, the job is ter- 
minated. The six operators and their mean- 
ings are: 


Operator Meaning 

GT greater than 

GE greater than or equal to 
EQ equal to 

NE not equal to 

LT less than 

LE less than or equal to 


For example, if a code 8 is returned by 
the compiler and the JOB statement 
contains: 


COND= (7, LT) 
the job is terminated. 


If more than one condition is indicated 
in the COND parameter and any condition is 
satisfied, the job is terminated. 


For the FORT step of both the FORTGCLG 
and FORTHCLG cataloged procedures, the com- 
pilers issue one of the following error 
codes: 


0 - NO errors or warnings detected. 


4 - Possible errors (warnings) detected, 
execution should be successful. 


8 - Errors detected, execution may fail. 
Compilation continues but the lin- 
kage editor job step is not executed 
unless the programmer has increased 
the error code acceptable to the 
linkage editor. (The discussion 
"Condition for Bypassing a Job Step" 
later in this section describes the 
method for specifying the acceptable 
error code. ) 


mma 7 
| 


oh es oe 4 If the LOAD option has 
been specified, an object module 
will be supplied. 


aaa 1 
|H ONLY | 


If the error is found in 
an executable statement, the state- 
ment is replaced by a call to the 
IBERH routine (IHCIBERH). If the 
resulting load module is executed, 
IBERH is called and execution is 
terminated. 


SESE 1 
| 


12 + l------ 4 Severe errors detected, 


execution is impossible. 


16 - Terminal errors detected, compiler 
terminated abnormally. 
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Assigning Job Priority (PRTY) 


ee a aa ee ee ee ore sare eese li aeerenetee cen ome set 


(Used with Priority Schedulers Only) 


To assign a priority other than the 
default job priority (as established in the 
input reader procedure), the parameter 
PRTY=nn must be coded in the operand field 
of the JOB statement. The "nn" is to be 
replaced with a decimal number from 0 
through 13 (the highest priority that can 
be assigned is 13). 


Whenever possible, avoid using priority 
13. This is used by the system to expedite 
~ processing of jobs in which certain errors 
were diagnosed. It is also intended for 
other special uses by future features of 
systems with priority schedulers. 


If the PRTY parameter is omitted, the 
default job priority is assumed. 


Requesting _a_ Message Class _(MSGCLASS) 
(Used with Priority Schedulers Only) 


With a quantity and diversity of data in 
the output stream, an installation may want 
to separate different types of output data 
into different classes. Each class is 
directed to an output writer associated 
with a specific output unit. 


The MSGCLASS=x parameter allows the mes- 
sages issued by the priority scheduler to 
be routed to an output class other than the 
normal message class, A. The "x" is to be 
replaced with an alphabetic or numeric 
character. An output writer, assigned to 
process this class, transfers the data to a 
specific device. 


If the MSGCLASS parameter is omitted, 
the job scheduler messages are routed to 
the standard output class, A. 


ame sane sa le tae wee seen tt er seo oi Yi a ee ee cme Se ie ey 


ae a a a le Se a RY SS 


(Systems with MVT Only) 
The REGION parameter is used to specify: 


e The maximum amount of main storage to 
be allocated to the job. This figure 
must include the size of those com- 
ponents that are required by the user's 
program and that are not resident in 
main storage. 


e The amount of main storage to be allo- 
cated to the job, and in which storage 
hierarchy or hierarchies the space is 
to be allocated. This request should 
be made only if main storage hierarchy 
support is specified during system 
generation. 


To request the maximum amount of main 
storage required by the job, REGION=nnnnnk 
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-is coded in the operand field of the JOB 


statement. The term nnnnn is replaced with 
the number of contiguous 1024-byte areas to 
be allocated to the job, e.g., REGION=52K. 
This number can range from one to five 
digits, but cannot exceed 16383. It should 
be specified as an even number. (If an odd 
number is specified, the system treats it 
as the next highest even number.) 


If the REGION parameter is omitted or if 
a region size smaller than the default 
region size is requested, the default value 
(as established in the input reader proce- 
dure) is assumed. 


Note: If different region sizes are to be 
specified for each step in the job code, 
the REGION parameter must be specified in 
the EXEC statement associated with each 
step, as described in the section “EXEC 
Statement." 





Main storage hierarchy support provides 
for storage hierarchies 0 and 1. If IBM 
2361 Core Storage, Model 1 or 2, is present 
in the system, processor storage is 
referred to as hierarchy 0 and 2361 Core 
Storage is referred to as hierarchy 1. If 
2361 Core Storage is not present but main 
storage hierarchy support was specified 
during system generation, a 2-part region 
is established in processor storage when a 
region is defined to exist in two hierar- 
chies. The two parts are not necessarily 
contiguous... 


When main storage hierarchy support is 
included in the system, the REGION. parame- 
ter can be used to request both the maximum 
amount of storage to be allocated to the 
job and the hierarchy or hierarchies in 
which the storage is to be allocated. 


To specify a region size and the hierar- 
chy desired, REGION=(value K,value,K) is 
coded in the operand field of the JOB 
statement. The term “value " is replaced 
with the number of contiguous 1024-byte 
areas to be allocated to the job in hierar- 
chy 0; the term "value," is replaced with 
the number of contiguous 1024-byte areas to 
be allocated in hierarchy 1, e.g., REGION= 
(60K, 200K). When processor storage 
includes hierarchies 0 and 1, the combined 
values of value and value, cannot exceed 
16383. If 2361 Core Storage is present, 
value .cannot exceed 16383, and value, can- 
not exceed 1024, if using a single Model 1, 
or 2048, if using a single Model 2. Each 
value specified should be an even number. 
(If an odd number is specified, the system 
treats it as the next highest even number.) 


In systems with main storage hierarchy 
support, either subparameter can be omitted 
to request storage in only one hierarchy. 


If storage is requested only in hierarchy 
1, a comma must be coded to indicate the 
absence of the first subparameter, e.g., 
REGION=(,52K). If storage is requested 
only in hierarchy 0, the parentheses need 
not be coded, e.g., REGION=70K. 


If the REGION parameter is omitted, or 
if a region size smaller than the default 
region size is requested, the default value 
(as established in the input reader proce- 
dure) is assumed. When the default region 
size is assumed, storage is always allo- 
cated in hierarchy 0. 


Notes: 


e If different region sizes are to be 
specified for each step in the job, 
code the REGION parameter in the EXEC 
statement associated with each step, as 
described in the section "EXEC 
Statement." 


e If main storage hierarchy support is 
not included and regions are requested 
in both hierarchies, the region sizes 
are combined and an attempt is made to 
allocate a single region from processor 
storage. If a region is requested 
entirely from hierarchy 1, an attempt 
is made to allocate the region From 
processor storage. 


e For information on storage requitements 


to be considered when specifying a | 


region size, see the >: Storage Estimates 


publication. 
Setting a Job Time Limit (TIME) 


(Used by Priority Schedulers Only) 


To limit the computing time used by a 
single job, a maximum time for its comple- 


tion can be assigned. Such an assignment. 
is useful in a multiprogramming environment 
where more than one job has access to the 
computing system. 


The time is coded in minutes and 
seconds. The number of minutes cannot 
exceed 1439. The number of seconds cannot 
exceed 59. If the job is not completed in 
the assigned time, it is terminated. If 
the job execution time is expected to 
exceed 1439 minutes (24 hours), TIME=1440 
can be coded to eliminate job timing. If 
the TIME parameter is omitted, the default 
job time limit (as established in the cata- 
loged procedure for the reader/interpreter) 
is assumed. 


EXEC _STATEMENT 


The EXEC statement (Figure 5) indicates 
the beginning of a job step and describes 
that job step. The statement can contain 
the following information: 


1. Name of job step or procedure step. 


2. Name of the cataloged procedure or 
~~ load module ‘to be executed. — 


3. Compiler and/or linkage editor options 
a ‘passed to the job step. 


AR Accounting: information relative to 
this job erePe: 


5. Conditions for SypassiAd the execution 
of this job step. 


6. A time Limit for the job atiep or an 
entire cataloged Ecvecnure: 


7. Specification of main storage require- 


ments for a job step or an entire 
cataloged procedure. 


Job Control Language 21 


ie a Raa ca a ag cm, aa aa A a ar a cr aa 
| Name |Operation|Operand 

}------------ =} —------- fam nnn nnn nnn nnn nn nnn 

Positional Parameter 

-PROC=cataloged-procedure-name 
cataloged-procedure-name 

«, PGM=program-name 

| Pow=*. stepname. ddname 

-_PGM=*, stepname. procstep. ddname 


| 
// (stepname) + | EXEC 


lOO lag ye 


Keyword Parameters 
| ones =(optionl,option]...)3? * - | 


sACCT 
\AccT. procstep2f =(accounting-information)3 6 7 


SCOND oe 
| Ieond. procetep ( (code, operator(, stepname[.procstep]]) 
[, (code, operator([,stepname[. procstep]])]...#)9] 
ao 1 20 41 
eres auseakendls (minutes, seconds) 
i jester 
REGION. procstep?} = (jnnnnnk (,value,K])| 21° 12 
valueoK 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
[ 
| 
| 
| 
{ 
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DPRTY 
DPRTY. procstep? =(value 1{,value 2]) 


oe 


ee ee eee ce ee ee ae ae ae ae se ate ee er se a eee A SON SR EY AO ee SO a ey cy tee ir SS A A SEN NN SE a Am A SE SE em ce A 


1If information from this control statement is referred to in a later job step, 
"“stepname"™ is required. 

2If this format is selected, it may be repeated in the EXEC se avewenk: once for each 
step in the cataloged procedure. 

3If the information specified contains blanks, parentheses, or equal signs, either 
the keyword subparameter must be enclosed by apostrophes or the entire PAEM field 
must be delimited by apostrophes instead of parentheses. 

“If only one option is specified and it does not contain any blanks, parentheses, or 
equal signs, the delimiting parentheses may be omitted. 

SThe maximum number of characters allowed between delimiting parentheses is 100. If 
the option list is enclosed in apostrophes, however, the pexomeker must be coded on 
one card. 

Sif "accounting- information" does not contain commas, blanks, parentheses, or equal 
signs, the delimiting parentheses may be omitted. 

7The maximum number of characters allowed between the delimiting apostrophes or 
parentheses is 142. 

®The maximum number of repetitions allowed is 7. 

°If only one test is specified, the outer pair of parentheses may be omitted. 

19This parameter is used with priority schedulers only. Sequential schedulers ignore 
it. 

|22I£f only minutes are given, the parentheses need not be used. If only seconds are 

| given, the parentheses must be used and a comma must precede the seconds. 

|42If only value,K is given, the parentheses need not be used. If only value,K is 

ij given, the parentheses must be used and a comma must precede value,K. 

{*3If only value 1 is given, the parentheses need not be used. If only value 2 is 

| given, the parentheses must be used and a comma must precede value 2. 
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Figure 5. EXEC Statement 
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Example 1 of Figure 6 shows EXEC state- 
ments used to execute programs. The pro- 
gram names used are the (G) and (H) compil- 
er names. Example 2 in Figure 6 shows, for 
each compiler, an EXEC statement used to 
execute a cataloged procedure. 


NAME FIELD 


The “stepname" is the name of the job 
step or procedure step. It is required 
when information from this job step is 
referred to in a later job step. No two 
steps in the same job should have the same 
"stepname. “* 


OPERAND FIELD 


Positional Parameter 


The first parameter of an EXEC statement 
must specify either the name of the cata- 
loged procedure or program to be executed. 
Each program (load module) to be executed 
must be a member of a library (PDS). The 
library can be the system library | 
(SYS1.LINKLIB), a private library, or a 


Sample Coding Form 


ee ee ee ee ee ee ee ae 





Is[s{olt [e]3[4|slel7| 


/ P 


EX|E¢, FoR 


fd 
Cul 


| 





temporary library created to store a pro- 
gram from a previous job step of the same 
job. 


Specifying a_Cataloged Procedure: 


PROC=cataloged-procedure-name 
cataloged-procedure-name 
indicate that a cataloged procedure is 
invoked. The “cataloged procedure- 
name" is the name of the cataloged 
procedure. For example, 


// EXEC PROC=FORTHC 
or 
// EXEC FORTHC 


indicates that the FORTRAN IV (H) cat- 
aloged procedure FORTHC is to be 
executed. 


Specifying a Program in a Library: 


PGM=program-name 
indicates that a program is executed. 
The “program name“ is the member name 
of a load module in the system library 
(SYS1.LINKLIB) or private library. 
For example, 


// EXEC PGM=IEWL 


indicates that the load module IEWL is 
executed. (A load module in a private 


71-80 
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Figure 6. Sample EXEC Statements 
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library is executed by concatenating 
that private library with the system 
library through the use of a JOBLIB DD 
statement. See the discussion con- 
cerning JOBLIB under “Data Definition 
(DD) Statement" in this section.) 


Specifying a Program Described in a Pre- 
vious Job Step: 


PGM=*. stepname. ddname 
indicates that the name of the program 
to be executed is taken from a DD 
statement of a previous job step. 
* indicates the current job; “step- 
name" is the name of a previous step 
within the current job; and “ddname" 
is the name of a DD statement within 
that previous job step. (The “step- 
name" cannot refer to a job step in 
another job.) The program referred to 
must. be a member of a PDS. For 
example, in the following statements, 
statement STEP5 indicates that the 
name of the program is taken from the 
DD statement SYSLMOD in job step 
STEP4. Consequently, the load modtle 
ARCTAN in the PDS MATH is executed. 


The 


//MCLX JOB ,JOHNSMITH, COND=(7, LT) 


//STEP4 EXEC PGM=IEWL 
//SYSLMOD DD DSNAME=MATH(ARCTAN) 


//STEP5 EXEC PGM=*.STEP4&. SYSLMOD 


Specifying a Program Described in a Cata- 
loged Procedure: 


PGM=*,. stepname. procstep. ddname 
indicates that the name of the program 
to be executed is taken from a DD 
statement of a previously executed 
step of a cataloged procedure. ‘The * 
indicates the current job; "stepname" 
is the name of the job step that 
invoked the cataloged procedure; 
“procstep" is the name of a step 
within the procedure; “ddname™ is the 
name of a DD statement within the pro- 
cedure step. (The “stepname™ cannot 
refer to a job step in another job.) 
For example, consider a cataloged pro- 
cedure FORT, 
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//COMPIL EXEC PGM=IEKAA00 
//SYSPUNCH DD UNIT=SYSCP 
//SYSPRINT DD SYSOUT=A 


//SYSLIN DD DSNAME=LINKINP 


EXEC PGM=IEWL 
DSNAME=RESULT (ANS) 


/4/ULKED 
//SYSLMOD DD 


Furthermore, assume the following 
statements are placed in the input 


streame 

//XLIV JOB ,SMITH, COND=(7, LT) 
4/81 EXEC PROC=FORT 

1/82 EXEC PGM=*.S1.LKED. SYSLMOD 


//¥FTO3F001 DD 
//¥TO1FO01 DD 


UNIT=PRINTER 
UNIT=INPUT 


Statement S2 indicates that the name 
of the program is taken from the DD 
statement SYSLMOD. The statement is 
located in the procedure step LKED of 
the cataloged procedure FORT, which 
was invoked by statement Si. Conse- 
quently, the load module ANS in the 
PDS RESULT is executed. 


Keyword Parameters 


The keyword parameters may refer toa 
program, to an entire cataloged procedure, 
or to a step within a cataloged procedure. 


Options for the Compiler and Linkage 


Editor: 


The PARM parameter is used to pass 
options to the compiler or linkage editor. 
(PARM has no meaning to a FORTRAN load 
module. ) 


PARM 
passes options to the compiler or 
linkage editor, when either is invoked 
by the PGM parameter in an EXEC state- 
ment, or to the first step in a cata- 
loged procedure. 


PARM. procstep 
passes options to a compiler or link- 
age editor step within the named cata- 
loged procedure step. 


The formats for compiler options and 
those linkage editor options most appli- 
cable to the FORTRAN programmer are shown 
in Figure 7. 


Note: If a subparameter expression in the 
list of the PARM parameter contains special 
characters, either of two methods may be 


used to delimit the expression: 


1. Enclose the entire subparameter list 
in apostrophes. For example: 


PARM = ‘LIST, MAP, NAME=MYMAIN, DECK‘ 


2. Enclose the subparameter expression in 
apostrophes and the entire subparamet- 
er list in parentheses. Thus, the 
above example can be coded as: 

PARM = (LIST, MAP, ‘NAME=MYMAIN® , DECK) 

Since a list enclosed in apostrophes cannot 

be continued onto another control state- 


ment, the second method should be used when 
the PARM parameter must be interrupted. 


Detailed information concerning compiler 
and linkage editor options is given in the 
section “FORTRAN Job Processing." 


This COND parameter (unlike the one in 
the JOB statement) determines if the job 
step defined by the EXEC statement is 
bypassed. 
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FORTRAN IV (G) and FORTRAN IV (4H) 


r 
Compiler Options: 


Compiler Options: FORTRAN IV (H) only 


| 
| 
| 
| 
| 
I 
| 
| 
| 
| 
| 
| 
l 
[Linkage Editor: 
| 
| 
| 
| 
| 
| 
i 
| 
| 
| 
| 
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Figure 7. 


eae Pa ee ; {r SOURCE \ 

PARM. procstep NOLIST) {(, NAME=xxxxxx] {, LINECNT=xx] , NOSOURCE!) 
» DECK {rEOaD \ Wom Kees \ f22 
» NODECK Caan ae »EBCDIC ,NOID 


PARM 
(ema speceten = *(oPT={0{1| 231 (, SIZE=nnnnk] { RORDIT 


ae \ bee 
PARM.procstepf = (|XREF {,LET] [(,NCAL) [,LIST] )+ 
Loader: 

ee \ MAP {CAL \ 

PARM.procstep}) = ( | NOMAP » NOCALL 


{, EP=name] {- BRINT 


COND 
states conditions for bypassing the 
execution of a program or an entire 
cataloged procedure. 

COND. procstep 


states conditions for bypassing the 
execution of a specific cataloged pro- 
cedure step "procstep". 


The subparameters for the COND parameter 
are of the form: 


(code, operator[,stepname]) 


The subparameters “code" and “operator” 
are the same as the code and operator 
described for the COND parameter in the JOB 
statement. The subparameter “stepname" 
identifies the previous job step that 
issued the code. For example, the COND 
parameter 


COND=((5, LT, FORT), (5, LT, LKED) ) 


indicates that the step in which the COND 
parameter appears is bypassed if 5 is less 
than the code returned by either of. the 
steps FORT or LKED. 


,EDIT _ XREF ta 2 
, NOXREF 


, LET , SIZE=100K 
»NOLETS |, SIZE=size 


\ 1 2 
NOPRINT) ) 
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{+The subparameters (options) are keyword subparameters. 

|2If any keyword subparameter contains blanks, parentheses, or equal signs, either the 
| keyword subparameter must be enclosed by apostrophes or the entire PARM field must be 
| delimited by apostrophes instead of parentheses. 
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Compiler, Linkage Editor, and Loader Options 
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If a step in a cataloged procedure 
issued the code, "stepname" must qualify 
the name of the procedure step; that is, 


(code, operator[,stepname. procstep] ) 


If “stepname™ is not given, “code” is 
compared with all codes issued by previous 
job steps. 


Accounting Information: 


The ACCT parameter specifies accounting 
information for a job step within a job. 


AccT 
is used to pass accounting information 
to the installation accounting rou- 
tines for this job step. 


ACCT. procstep 
is used to pass accounting information 
for a step within a cataloged 
procedure. 


If both the JOB and EXEC statements con- 
tain accounting information, the installa- 
tion accounting routines decide how the 
accounting information shall be used for 
the job step. 


Setting Job Step Time Limits (TIME): 
(Used with MVT Priority Schedulers Only) 


To limit the computing time used by a 
Single job step or cataloged procedure, a 
maximum time for its completion can be 
assigned. If the job step is not completed 
in this time, the entire job is terminated. 
Assignment of such a time limit is particu- 
larly useful in a multiprogramming environ- 
ment where more than one job has access to 
the computing system. 


The time is coded in minutes and 
seconds. The number of minutes cannot 
exceed 1439 (24 hours); the number of 
seconds cannot exceed 59. (If the job step 
execution time is expected to exceed 1439 
minutes, TIME=1440 can be coded to elimi- 
nate job step timing.) 


If the TIME parameter is omitted, the 
default job step time limit (as established 
in the cataloged procedure for the input 
reader) is assumed. 


TIME 
is used to assign a time limit for a 
job step or for an entire cataloged 
procedure. For a cataloged procedure, 


this parameter overrides all TIME 
parameters that may have been speci- 
fied in the procedure. 


TIME. procstep 


is used to assign a time limit for a 
single step of a cataloged procedure. 
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This parameter overrides, for the 
named step, any TIME parameter which 
is present. One parameter of this 
form can be written for each step in 
the procedure. 


Specifying Main Storage Requirements for a 


Job Step (REGION) 
(Systems with MVT Only) 


The REGION parameter is used to specify: 


e The maximum amount of main storage to 
be allocated to the job step. This 
figure must include the size of those 
components that are required by the 
user's program and that are not resi- 
dent in main storage. 


e The amount of main storage to be allo- 
cated to the job, step and in which 
storage hierarchy or hierarchies the 
space is to be allocated. This request 
should be made only if main storage 
hierarchy support is specified during 
system generation. 


To request the maximum amount of main 
storage required by the job step, REGION= 
nnnnnK is coded in the operand field of the 
JOB statement. The term nnnnn is replaced 
with the number of contiguous 1024-byte 
areas to be allocated to the job, e.g., 
REGION=52K. This number can range from one 
to five digits, but cannot exceed 16383. 

It should be specified as an even number. 
(If an odd number is specified, the system 
treats it as the next highest even number.) 


If the REGION parameter is omitted or if 
a region size smaller than the default 
region size is requested, the default value 
(as established in the input reader proce- 
dure) is assumed. 


Notes: 


e If the REGION parameter has been speci- 
fied on the JOB statement, REGION para- 
meters on the job‘s EXEC statements are 
ignored. 


e When the job step uses a cataloged pro- 
cedure, a region size can be requested 
for a single procedure step by includ- 
ing, as part of the REGION parameter, 
the procedure step name, i.e., REGION. 
procstep. This specification overrides 
the REGION parameter in the named pro- 
cedure step, if one is present. As 
Many parameters of this form can be 
coded as there are steps in the cata- 
loged procedure. 


e To request a single region size for an 
entire cataloged procedure, code the 
REGION parameter without a procedure 


step name. This specification over- 
rides all REGION parameters in the pro- 
cedure, if any are present. 


Main storage hierarchy support provides 
for storage hierarchies 0 and i. If IBM 
2361 Core Storage, Model 1 or 2, is present 
in the system, processor storage is 
referred to as hierarchy 0 and 2361 Core 
Storage is referred to as hierarchy 1. If 
2361 Core Storage is not present but main 
storage hierarchy support was specified 
during system generation, a 2-part region 
is established in processor storage when a 
region is defined to exist in two hierar- 
chies. The two parts are not necessarily 
contiguous. 


When main storage hierarchy support is 
included in the system, the REGION paramet- 
er can be used to request both the maximum 
amount of storage to be allocated to the 
job step and the hierarchy or hierarchies 
in which the storage is to be allocated. 


To specify a region size and the hierar- 
chy desired, REGION=(value kK, value,K) is 
coded in the operand field of the JOB 
statement. The term “value * is replaced 
with the number of contiguous 1024-byte 
areas to be allocated to the job step in 
hierarchy 0; the term “value," is replaced 
with the number of contiguous 1024-byte 
areas to be allocated in hierarchy 1, e.g., 
REGION= (60K, 200K). When processor storage 
includes hierarchies 0 and 1, the combined 
values of value and value, cannot exceed 
16383. If 2361 Core Storage is present, 
value cannot exceed 16383, and value, can- 
not exceed 1024, if using a single Model 1, 
Or 2048, if using a single Model 2. Each 
value specified should be an even number. 
(If an odd number is specified, the system 
treats it as the next highest even number.) 


In systems with main storage hierarchy 
support, either subparameter can be omitted 
to request storage in only one hierarchy. 
If storage is requested only in hierarchy 
1, a comma must be coded to indicate the 
absence of the first subparameter, e.g., 
REGION=(,52K). If storage is requested 
only in hierarchy 0, the parentheses need 
not be coded, e.g., REGION=70K. 


If the REGION parameter is omitted, or 
if a region size smaller than the default 
region size is requested, the default value 
(as established in the input reader proce- 
dure) is assumed. When the default region 
size is assumed, storage is always allo- 
cated in hierarchy 0. 


Notes: 


e If the REGION parameter has been speci- 
fied on the JOB statement, REGION para- 


meters on the job's EXEC statements are 
iqnored. 


e If main storage hierarchy support is 
not included and regions are requested 
in both hierarchies, the region sizes 
are combined and an attempt is made to 
allocate a single region from processor 
storage. If a region is requested 
entirely from hierarchy 1, an attempt 
is made to allocate the region from 
processor storage. 


e When the job step uses a cataloged pro- 
cedure, a region size can be requested 
for a single procedure step by includ- 
ing, as part of the REGION parameter, 
the procedure step name, i.e., REGION. 
procstep. This specification overrides 
the REGION parameter in the named pro- 
cedure step, if one is present. As 
many parameters of this form can be 
coded as there are steps in the cata- 
loged procedure. 


® To request a single region size for an 
entire cataloged procedure, code the 
REGION parameter without a procedure 
step name. This specification over- 
rides all REGION parameters in the pro- 
cedure, if any are present. 


e For information on storage requirements 
to be considered when specifying a 
region size, see the Storage Estimates 
publication. . . 


Establishing a Dispatching Priority 
(DPRTY) | 
(Systems with MVT only) 


The DPRTY parameter specifies the dis- 
patching priority of a job step's tasks. 
The dispatching priority determines the 
order in which a job step's tasks will use 
main storage and CPU resources. Unless the 
DPRTY parameter is coded, each job step is 
assigned the same dispatching priority as 
the job. 


To assign a dispatching priority toa 
job step, the keyword parameter: 


DPRTY = (value 1, value 2) 


is coded in the operand field of the EXEC 
statement. The terms value 1 and value 2 
may each be assigned a number from 0 
through 15. The higher the number, the 
higher the dispatching priority will be. 
(Whenever possible, assigning a number of 
15 to value 1 should be avoided since this 
number is used for certain system tasks. ) 
The number assigned to value 1 is converted 
by the system to determine an internal 
priority. The number assigned to value 2 
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is added to the internal priority to form 
the dispatching priority. If a number is 
not assigned to value 1, a default value of 
zero is assumed; for value 2 a default 
value of 11 is assumed. 


DPRTY des 
is used to assign a dispatching 
priority for a job step or for an 
entire cataloged procedure. For a 
cataloged. procedure, this specifica- 
tion overrides all DPRTY parameters 
that may have been specified in the 
procedure. 


DPRTY. procstep 
is used to assign a dispatching 
priority to a single procedure step in 
a cataloged procedure. This parameter 
overrides, for the named step, any 
DPRTY parameter which is present. One 
parameter of this form can be written 
for each step in the cataloged 
procedure. 


Note: A detailed discussion of dispatching 
priorities can be found in the Concepts and 


Facilities publication listed in the 
Preface. 


DATA DEFINITION (DD) STATEMENT 


The DD statement (Figure 8) describes 
data sets. The DD statement can contain 
the following information: 


1. Name of the data set to be processed. 
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2. Type and number of I/O devices for the 
data set. 


3. Volume(s) on which the data set 
resides. 


4. Amount and type of space allocated on 
a direct access volume. 


5... Label information for the data set. 


6. Disposition of the data set after 
execution of the job step. 


7. Allocation of data sets with regard to 
channel optimization. 


8. Whether a particular data set may be 
used only for input or only for 
output. 


NAME. FIELD 


ddname 
is used: 


1. To identify data sets defined by 
this DD statement to the compiler 
or linkage editor. 


2... .To relate data sets defined by 
.... this DD statement to data set 
reference numbers used by the pro- 
grammer in his source module. 


3. To identify this DD statement to 
. other control statements in the 
input stream. 


ate em ane eA in ES ee SR ie NOY i ce ten Se wl ape 


Operation|operand# 


— 

| 

i 

t 

| 

| 

| 

| 

{ Z 
+-—4 


|Positional Parameter 





ddname |] 2 DD 1] * % 
//\procstep. ddname || DUMMY 
JOBLIB? {| DATA 
STEPLIB \ 
SYSABEND 
.SYSUDUMP ~ Keyword Parameters® 6 


DDNAME=ddname 


dsname 
dsname (element) 
*, ddname 
hort *.stepname. ddname 
*.stepname. procstep. ddname 
éname 
&name (element) 


(UNIT=(subparameter-lList) ] 
{DCB=(subparameter-list) ] 


\voiume | 
; =(subparameter-list) 
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SPACE=(subparameter-list) 
SPLIT=(subparameter-list) 
SUBALLOC=(subparameter-list) 


({LABEL=(subparameter-list)] 


DISP=(subparameter-1 ist) 

SYSOUT=A 

SYSOUT=B 

SYSOUT=(xI[, program-name) [, form-number])7 ® 
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(SEP=(subparameter-list)] 
[2A DD statement with a blank operand field can be used to override parameters speci- 

| fied in cataloged procedures. (See “Overriding and Adding DD Statements" in the sec- 
{| tion “Cataloged Procedures". ) eae ee 

|#The name field is blank when concatenating data sets. (Note the exception for the 

| use of JOBLIB.) 

|The JOBLIB statement precedes any EXEC statements in the job. _ ee the discussion 

| concerning JOBLIB under "Name Field" in this section.) 

|*If either the * or DATA the positional parameter is specified, no keyword parameters 
| other than DCB=BLKSIZE and DCB=BUFNO can be specified. 

{Sif “subparameter~list" consists of only one subparameter and no leading comma (indi- 
| cating the omission of a positional subparameter) is required, the delimiting paren~ 
| theses may be omitted. 

|SIf “subparameter-list"™ is omitted, the entire parameter must be omitted. 

|*This form of the parameter is used only with priority schedulers. 

| 8L£ “program-name"™ and “form-number"™ are omitted, the delimiting parentheses can be 

| omitted. If only the form number is given, the parentheses must be used and two com- 
| mas must precede the form number. 
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The “ddname" format is given in “FORTRAN 
Job Processing." 


procstep. ddname 
is used to override DD statements in 
cataloged procedures. The step in the 
cataloged procedure is identified by 
"procstep". The "“ddname" identifies 
either: 


i. A DD statement in the cataloged 
procedure that is to be modified 
by the DD statement in the input 
stream, or 


2. A DD statement that is to be added 
to the DD statements in the proce- 
dure step. 


JOBLIB and STEPLIB 
are used to concatenate a private 
library with the system library, SYS1. 
LINKLIB; that is, the operating system 
library and the data sets specified in 
the JOBLIB or STEPLIB DD statement are 
temporarily combined to form one 
library. Use of JOBLIB results in 
concatenation for the duration of a 
job; use of STEPLIB, for the duration 
of a job step. 


The JOBLIB DD statement must appear | 
immediately after the JOB statement of 
the job to which it pertains, and its 
operand field, at a minimum, must con- 
tain the DSNAME and DISP parameters. 
The DISP parameter must be coded eith- 
er DISP=(NEW, PASS) or DISP=(OLD, PASS) 
or DISP=(SHR, PASS) so that the library 
remains available throughout the job. 
(See the discussion of the DISP param- 
eter under "Operand Field." 


The STEPLIB DD statement may appear in 
any position among the DD statements 
for the step. The data set defined 
should be OLD. If the private library 
is not cataloged and is to be referred 
to in a later step (or steps), 
DISP=(OLD, PASS) or DISP=(SHR, PASS) 
should be coded; a later step may then 
refer to it by coding 
DSNAME=*.sStepname.STEPLIB, DISP=(OLD, 
PASS) on the STEPLIB DD statement for 
the later step. 


For additional information on the use 
of JOBLIB and STEPLIB DD statements, 


see the Job Control Language Reference 
publication, Form GC28-6704. 


SYSABEND and SYSUDUMP 
are special DD names used to define a 
data set on which a system abnormal 
termination dump can be written. The 
dump is provided for job steps subject 
to abnormal termination, 
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The dump provided when the SYSABEND DD 
statement is used includes the system 
nucleus, the problem program storage 
area, and a trace table, if the trace 
table option was requested at system 
generation. The SYSUDUMP DD statement 
provides a dump of only the problem 
program area. 


A full discussion of SYSABEND and. SYS- 
UDUMP DD statements, with an example 
of use, appears in the Job Control 
Language Reference publication, Form 
GC28-6704. 


BLANK NAME FIELD 


If the name field is blank, the data set 
defined by the DD statement is concatenated 
with the data set defined in the preceding 
DD statement. In effect, these two data 
sets are combined into one data set. 
(Private libraries, i.e., partitioned data 
sets, may also be concatenated with the li- 
brary specified in the JOBLIB DD statement. 
Therefore, several libraries can be concat- 
enated with the system library. Individual 
members of a partitioned data set, however, 
cannot be concatenated.) 


Note: Handling of data sets whose records 
are of different lengths and/or different 
formats is a function of the program being 
executed. Data sets designated for conca- 
tenation may not be in the input stream. 


OPERAND FIELD 


For purposes of discussion, parameters 
for the DD statement have been divided into 
seven functions. Parameters are used to: 

e Specify data in the input stream. 
e Specify unit record data sets. 


e Retrieve a previously created and cata- 
loged data set. 


e Retrieve a data set created in a pre- 
vious job step in the current job and 
passed to the current job step. 


e Retrieve a data set created but not 
cataloged in a previous job. 


e Create data sets that reside on magnet- 
ic tape or direct access volumes. 


e Optimize I/O operations. 


The following text describes the DD 
statement parameters that apply to: 


e Processing unit record data sets. 


Retrieving data sets created in pre- 


vious job steps. 


See 


Retrieving data sets created and cata- 
loged in previous jobs. 


Figure 9 for applicable parameters. 


Parameters shown in Figure 8 and not 
mentioned in this section are used to cre- 
ate data sets and optimize I/O operations 


in job steps. 


These parameters are dis- 


cussed in the sections “Creating Data Sets" 
and "Programming Considerations." 


Specifying Data in the Input Stream: 


* 


DATA 


UNIT 


indicates that a data set (e.g., a 
source module or data) immediately 
follows this DD statement in the input 
stream (see Figure 10). If the EXEC 
statement for the job step invokes a 
cataloged procedure, a data set may be 
placed in the input stream for each 
procedure step. If the EXEC statement 
specifies execution of a program, only 
one data set may be placed in the 
input stream. The DD * statement must 
be the last DD statement for the pro- 
cedure step or program. The end of 
the data set must be indicated by a 
delimiter statement. The data itself 
cannot contain job control statements 
(neither the comment statement nor any 
statements with // or /* in columns 1 
or 2). Note, too, that if * is speci- 
fied, no keyword parameters other than 
DCB=BLKSIZE or DCB=BUFNO may be 
specified. 


also indicates data in the input 
stream. The restrictions and use of 
the DATA parameter are the same as the 
* parameter, except that // may appear 
in the first and second positions of a 
record. 


Parameter: 


UNIT=(name[, {n|P})) 


specifies the name and number of I/0 
devices for a data set (see Figure 
10). When the system is generated, 
the “name" is assigned by the operat- 
ing system or the installation and 
represents a device address, a device 
type, Or a device class. (See the 
System Generation publication.) The 
programmer can use only the assigned 
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|*I£ * is specified, no keyword parameters | 
| other than DCB=BLKSIZE or DCB=BUFNO may 


| be specified. 


|?If neither "n" nor “P" is specified, 1 


| is assumed. 


{FIf only “name"™ is epect£ied, the deli- 


| miting parentheses may be omitted. 


{|“This form of the parameter is used only 


| with priority schedulers. 


| omitted, the delimiting parentheses can 


| be omitted. 


|The assumption for the second subpara- 


meter is discussed in “Specifying the 


| 
| Disposition of a Data Set" in this 
| section. 

|7The subparameters are positional. 
|®See the section "Creating Data Sets." 
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DD Statement 


names in his DD statements. 


For 
example, 


UNIT=190, UNIT=2311, UNIT=TAPE 


where 190 is a device address, 231 


1 is 


a device type, and TAPE is a device 


class. 


n|P 


specifies the number of devices allo- 


cated to the data set. 
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If a number 
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"n" is specified, the operating system 
assigns that number of devices to the 
data set. “P" is used with cataloged 
data sets when the required number of 
volumes is unknown. The control pro- 
gram assigns a device for each volume 
required by the data set. 


Sample Coding Form 
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Figure 10. Examples of DD Statements for 


Unit Record Devices 


DCB Parameter: 


MODE=E ¢ STACK=1 
DCB=( (| MODE=C » STACK=2 ) 


specify options for the card read 
punch. The MODE subparameter indi- 
cates whether the card is transmitted 
in column binary or EBCDIC mode; C 
specifies column bAnarys and E speci- 
fies EBCDIC. 


The STACK subparameter indicates 
stacker selection for the card read 
punch, 


Routing a Data Set To An Output Stream 
(S¥YSOUT): With the SYSOUT parameter, out- 


put data sets can be routed to a system 

output stream and handled much the same as 

system messages. 

SYSOUT=A : 
can be used with sequential schedulers 
to indicate that the data set is to be 
written on the system output device. 
No parameter other than the DCB param- 
eter has any meaning when SYSOUT=A is 


used. This form of the SYSOUT param- 
eter may be specified for printer data 
sets. 

SYSOUT=B 


can be used with sequential schedulers 
to indicate the system card punch 
unit. The priority scheduler routes 
the output data set to class B. 
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SYSOUT= (x[, program-name] (, form-number ]) 
is used with priority schedulers. 
When priority schedulers are used, a 
data set is normally written on an 
intermediate direct access device dur- 
ing program execution and later routed 
through an output stream to a system 
output device. The "x" is to be 
replaced by an alphabetic or numeric 
character that specifies the system 
output class to be used. Output writ- 
ers route data from the output classes 
to system output devices. The DD 
statement for this data set can also 
include a unit specification that 
describes the intermediate direct 
access device and an estimate of the 
space required. If these parameters 
are omitted, the job scheduler pro- 
vides default values as the job is 
read and processed. 


If there is a special installation 
program to handle output operations, 
its "“program-name" should be speci- 
fied. “Program-name"™ is the member 
name of the program, which must reside 
in the system library. 


If the output data set is to be 
printed or punched on a specific type 
of output form, a 4-digit “form- 
number" should be specified. This 
form number is used to instruct the 
operator, in a message issued at the 
time the data set is to be printed, of 
the form to be used. 


Retrieving Previously Created Data Sets 


If a data set is created with standard 
labels and cataloged in a previous job, all 
information for the data set, such as rec- 
ord format, density, volume sequence num- 
ber, device type, etc., is stored in the 
catalog and labels. This information need 
not be repeated in the DD statement used to 
retrieve the data set; only the name 
(DSNAME) and disposition (DISP) is 
required. 


If a data set was created in a previous 
job step in the current job and its dispo- 
sition was specified as PASS, all the 
information in the previous DD statement is 
available to the control program, and is 
accessible by referring to the previous DD 
statement by name. To retrieve the data 
set, a pointer to a data set created ina 
previous job step is specified by the 
DSNAME parameter. The disposition (DISP) 
of the data set is also specified, along 
with the UNIT parameter if more than one 
unit. is to be allocated. 


If a data set is created with standard Specifying a Generation Data Group or PDS: 


labels in a previous job but not cataloged, 


information for the data set, such as rec- DSNAME=dsname (element) 

ord format, density, volume sequence num- indicates either a generation data set 
ber, etc., is stored in the labels; the contained in a generation data group, 
device type information is not stored. To Or a member of a partitioned data set. 
retrieve the data set, the name (DSNAME), The name of the generation data group 
disposition (DISP), volume serial number Or partitioned data set is indicated 
(VOLUME), and device (UNIT) must be by “dsname"; if "element" is either 0 
specified. or a signed integer, a generation data 


set is indicated. For example, 


If a data set is created with no labels DSNAME=FIRING (- 2) 
and cataloged, device type information is 
stored in the catalog. To retrieve the 


data set, the name (DSNAME), disposition indicates the thirdmost recent member 
(DISP), volume serial number (VOLUME), and of the generation data group FIRING. 

the LABEL and DCB parameters must be (See the Data Management publication 

specified. for the complete description of 


generation data sets.) If “element” 
is a name, a member of a partitioned 
data set is indicated. 
Examples of the use of DD statements to 
retrieve previously created data sets are 
shown in Figure 11. Note: Members of a partitioned data 
set may be read as input to a FORTRAN 
object program or created as output 
from a FORTRAN object program, but 


IDENTIFYING A CREATED DATA SET: The DSNAME only if the member name and either 

parameter indicates the name of a data set LABEL=(,,,IN) or LABEL=(,,,OUT) are 

or refers to a data set defined in the cur- specified in an associated DD 

rent or a previous job step. statement. 

Specifying a Cataloged Data Set by Name: Referring to a Data Set in tne Current Job 
Step: : 


DSNAME=dsname 
the name of the data set is indicated DSNAME=*,. ddname 


by “dsname." If the data set was pre- indicates a data set that is defined 
viously created and cataloged, the previously in a DD statement in this 
control program uses the catalog to job step. The * indicates the current 
find the data set and instructs the job. The name of the data set is 
operator to mount the required copied from the DSNAME parameter in 
volumes. the DD statement named “ddname". 


Sample Coding Form 
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Figure 11. Retrieving Previously Created Data Sets 
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Referring to a Data Set in a Previous Job 
step: 


DSNAME=*.stepname. ddname 
indicates a data set that is defined 
in a DD statement in a previous job 
step in this job. The * indicates the 
current job, and “stepname”™ is the 
name of a previous job step. The name 
of the data set is copied from the 
DSNAME parameter in the DD statement 
named “ddname". For example, in the 
following control statements the DD 
statement FTO8F001 in job step S2 
indicates that the data set name 
(TIME) is copied from the DD statement 
FTO9FO01 in job step Sl. 


//TGAUNCH JOB 

//JOBLIB DD DSNAME=FIRING, DISP=(OLD, PASS) 
7/81 EXEC PGM=ROCKET | 

//¥FT01F001 DD DSNAME=RATES (+1),DISP=OLD 
//¥FT09FO01 DD DSNAME=TIME, DISP=(OLD, PASS) 
4/S2 EXEC PGM=DISTANCE 


//¥TO8 F001 DD DSNAME=*.S1.FTO9FO01, x 


// DISP=OLD 
//FTO5FO01 DD * 


Referring to a Data Set ina cataloged 


Procedure: 


DSNAME=*.stepname. procstep. ddname 
indicates a data set that is defined 
in. a cataloged procedure invoked by a 
previous job step in this job. The *. 
indicates the current job; “stepname" 
is the name of a previous job step 
that invoked the cataloged procedure; 
"“procstep"™ is the name of a step in 
the cataloged procedure. The name of 


the data set is copied from the DSNAME 


parameter in ‘the DD statement named 
"ddname". : 


Assigning Names _to Temporary Data Sets: 


_DSNAME=&name 

assigns a name to a temporary data 

get. The control program assigns the 
data set a unique name which exists 
only until the end of the current job. 
The data set is accessible in subse- 
quent job steps by specifying "éname". 
This option is useful in passing an 


object module from a compiler job step 


to a linkage editor job step. 


DSNAME=&name (element) 
assigns a name to a member of a tem- 
porary PDS. The name is assigned in 
the same manner as for the DSNAME= 
&Ename option. The “&name(element)" 
option is useful in storing load 
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modules that will be executed in a 
later job step in the current job. 


SPECIFYING THE DISPOSITION OF A DATA SET: 


The DISP parameter is specified for both 
previously created data sets and data sets 


being created in this job step. It con- 
tains three subparameters. 
mat , DELETE , DELETE 
NEW\ | , KEEP , KEEP 
DISP=( ot PASS , CATLG ) 
MOD » CATLG , UNCATLG 
, UNCATLG 


The first subparameter indicates the 
status of the data set at the beginning of 
or during the job step. 


SHR 
indicates that the data set resides on 
a direct-access volume and is used as 
input to a job whose operations do not 
prevent simultaneous use of the data 
set as input to another job. This 
parameter has meaning only in a multi- 
programming environment for existing 
data sets. If it is omitted in a mul- 
tiprogramming environment, the data © 
set is considered unusable by any _ 
other concurrently operating job. If 
it is coded in other than a multipro- 
gramming environment, the system 
assumes that the disposition of the 
data set is OLD. 


NEW 
indicates that the data set is created 
in this> step. NEW is discussed in 
more detail in the ‘section “Creating 
Data aoe 


indicates that the data set was 
created by a previous job or job step. 


MOD 
indicates that the data set was 
created in a previous job or job step, 
and that additional records are. to be 
added to it. Before the first input/ 
output operation for the data set 
occurs, the data set is automatically 
positioned after the last record in 
the data set. If MOD is specified and 
no volume information (e.ge, volume 
serial number) is available for the 
data set, the system assumes the data 
set does not yet exist and creates the 
data set for the job step. (Volume 
information is considered available if 
it is coded in the DD statement, 
passed with the data set from a pre- 
vious step, or contained in the 


The second subparameter indicates the 
disposition of the data set at normal job 
step termination. 


DELETE 
causes the space occupied by the data 
set to be released and made available 
at the end of the current job step. 
If the data set was cataloged, it is 
removed from the catalog. 


KEEP 
insures that the data set is kept 
intact until a DELETE parameter is 
specified in a subsequent job or job 
step. KEEP is used to retain uncata- 
loged data sets for processing in 
future jobs. KEEP does not imply 
PASS. 


PASS 
indicates that the data set is 
referred to in a later job step. When 
a subsequent reference to the data set 
is made, its PASS status lapses unless 
another PASS is issued. The final 
disposition of the data set should be 
stated in the last job step that uses 
the data set. When a data set is in 
PASS status, the volume(s) on which it 
is mounted is retained. If demounting 
is necessary, the control program 
issues a message to mount the vol- 
ume(s) when needed. PASS is used to 
pass data sets among job steps in the 
same job. 


If a data set on an unlabeled tape is 
being passed, the volume serial number 
must be specified in the VOLUME=SER= 
parameter of the DD statement that 
passed the data set. 


Note: The PASS status of the private 
library specified in a JOBLIB DD statement 
always remains in effect for the duration 
of a job. 


CATLG 
causes the creation of a catalog entry 
that points to the data set. The data 
set can then be referred to in subse- 
quent jobs or job steps by name (CATLG 
implies KEEP). 


UNCATLG 
causes references to the data set to 
be removed from the catalog at the end 
of the job step. 


If the second subparameter is not speci- 
fied, no action is taken to alter the sta- 
tus of the data set. If the data set was 
created in this job, it is deleted at the 
end of the current job step. If the data 
set existed before this job, it exists 
after the end of the job. 


The third subparameter indicates the 
disposition of the data set if the job step 
terminates abnormally. This is the condi- 
tional disposition of the data set. 
Explanations for DELETE, KEEP, CATLG, and 
UNCATLG are the same as those for normal 
termination. 


Notes: 


e If a conditional disposition is not 
specified and the job step abnormally 
terminates, the requested disposition 
(the second subparameter of the DISP 
keyword) is performed. 


e Data sets that were passed but not 
received by subsequent steps because of 
abnormal termination will assume the 
conditional disposition specified the 
last time they were passed. If a con- 
ditional disposition was not specified 
then, all data sets that were new when 
initially passed are deleted. All 
other data sets are kept. 


e A conditional disposition other than 
DELETE for a temporary data set is 
invalid, and the system assumes DELETE. 


Effect of DISP Parameter at End of FORTRAN 
Job: In a FORTRAN job that is terminated 
by a STOP or CALL EXIT statement all data 
sets that were used by the job will be 
closed. The closing operation will posi- 
tion the volume in accordance with the DISP 


parameter, as follows: 

DISP Parameter Positioning Action 

PASS Forward space to end 
of data set 

DELETE Rewind 


KEEP, CATLG, UNCATLG Rewind and unload 


DELIMITER STATEMENT 


The delimiter statement (see Figure 12) 
is used to separate data from subsequent 
control statements in the input stream, and 
is placed after each data set in the input 
stream. 


a eo eta Ses ee ee 7 
| Name | | 
fos ey ear a aa a mr 4 
\7* | | 
a a a Ne ee od J 


Figure 12. Delimiter Statement 
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The delimiter statement contains a slash 
in column 1, an asterisk in column 2, and a 
blank in column 3. The remainder of the 
card may contain comments. = = ~~ ee 


COMMENT STATEMENT 


The comment statement (see Figure 13) is 
used to enter any information considered 
helpful by the programmer. It can be 
inserted before or after any control state- 
ment that follows the JOB statement. Com- 
ments can be coded in columns 4 through 80. 
The comments cannot be continued onto — 
another statement. (If the comment state- 
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ment appears on a system output listing, it 
can be identified by the appearance of *+** 
in columns 1 through 3.) 


ma Sameera See or a Rae ie aerate pet ee a eget gah Ge cam eg 1 

cc { 
[77+ | | 
Mace ee pe ee ee i ee ca ee are en nc ne ee a a ee an ne ee or | 


Figure 13. Comment Statement 


The comment statement contains a slash 
in column 1, a slash in column 2, and an 
asterisk in column 3. The rest of the card 
can contain comments. 


To process a FORTRAN source module from 
compilation through execution, three steps 
are required: to compile the source module 
to obtain an object module, to linkage edit 
the object module to obtain a load module,* 
and to execute the load module. For each 
of these three steps, job control state- 


ments are required to indicate the program — 


or procedure to be executed, to specify 
options for the compiler and linkage edi- 
tor, to specify conditions for termination 
of processing, and to define the data sets 
used during processing. Because writing 
these job control statements can be time- 
consuming work for the programmer, IBM sup- 
plies, for each compiler, four cataloged 
procedures to aid in the processing of FOR- 
TRAN modules. The use of cataloged proce- 
dures minimizes the number of job control 
statements that must be supplied by the 
programmer. 


USING CATALOGED PROCEDURES 


When a programmer uses cataloged proce- 
dures, he must supply the following job 
control statements. 


1. A JOB statement. 


2. An EXEC statement that indicates the 
cataloged procedure to be executed. 


3. A procstep.SYSIN DD statement that 
specifies the location of the source 
module(s) or the object module(s) to 
the control program. (Note: If the 
source module(s) and/or object mod- 
ule(s) are placed in the input stream, 
a delimiter statement is required at 
the end of each data set.) 


In addition, a GO.SYSIN DD statement 
can be used to define data in the input. 
stream for load module execution. (A de- 
limiter statement is required at the one ef 
the data.) 


The job control statements needed to 
invoke the procedures, and deck structures 
used with the procedures are described in 
the following text. 


ee Pe A SE Oe se OE Ee eS eee mee See ee ee Se ee ae 


4As an alternative, the object module may 
be edited and then automatically executed 
by the loader, another IBM-supplied pro- 
gram. Details on the use of the loader 
can be found in the Linkage Editor and 
Loader publication. 
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COMPILE 


The FORTRAN IV (G) cataloged procedure 
for compilation is FORTGC; the FORTRAN IV 
(H), FORTHC.? These cataloged procedures 
consist of the control statements shown in 
Figures 42 and 47, respectively. 


Figures 14, 15, and 16 show control 
statements that can be used, as programming 
needs dictate, to invoke for either compil- 
er the cataloged procedure for compilation. 
For both compilers, control statements and 
control statement fields are identical, 
except for the procedure-name specified on 
the EXEC statement: FORTGC is specified 
for the (G) compiler; FORTHC, for the (H) 
compiler. In the control statement 
sequences shown, the SYSIN data set con- 
taining the source module is defined as 
data in the input stream for the compiler. 
Note that a delimiter statement follows the 
FORTRAN source module. 


//jobname JOB 
// EXEC FORTGC or FORTHC 
LPEORT SOT Orn DD * 


Py Og ae eh gale Gee eS Ee gg a ee OE 7 
| FORTRAN Source Module | 
a a ae eee 4 
/* 

Figure 14. Invoking the Cataloged Proce- 


dure FORTGC or FORTHC 


Single Compile: A sample deck structure to 
compile a single source module is shown in. 
Figure 15. 


//JOBSC JOB 00, FORTRANPROG, MSGLEVEL=1 
//EXECC EXEC PROC=FORTGC or PROC=FORTHC 
//FORT.SYSIN DD * 


aa a aa a a ac 7 
| FORTRAN Source Module | 
Me a Son ee a Se cai 4 
/* 

Figure 15. Compiling a Single Source 


Module 


Batched Compile: A sample deck structure 
to batch compile is shown in Figure 16. 


SO A SN A NE NN Hae A a a ES SE RP ee eee ee cee ae 


2For FORTRAN IV (H), if the EDIT option is 
specified, a SYSUT1 data set must be 
defined as a work data set for the compil- 
er; if the compiler XREF option is speci- 
fied, a SYSUT2 data set must be defined as 
a work data set. 
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//JOBBC JOB 00,FORTRANPROG, MSGLEVEL=1 
//EXECC EXEC PROC=FORTGC or PROC=FORTHC 
//¥ORT.SYSIN DD * 


Cr ea ee 1 
| First FORTRAN Source Module | 
EE ee oe ie ei ne Ue ead he a ee eee Mare eee J 
Pe eee re ee ee ee 1 
| Last FORTRAN Source Module | 
| een eee Py Baer inet ete ae ms Se MNEn aA ir MM ees Revo e Coe Pee OMe Ce i 
/* 

Figure 16. Compiling Several Source 


Modules 


When several source modules are entered 
in the SYSIN data set for one job step, the 
compiler recognizes the FORTRAN END state- 
ment. If the next card is a delimiter 
statement, control returns to the control 
program at the end of the compilation. If 
the next card is a FORTRAN statement, con- 
trol remains with the FORTRAN compiler. 


COMPTLE AND LINKAGE EDIT 


For FORTRAN IV (G), the cataloged proce- 
dure to compile FORTRAN source modules and 
linkage edit the resulting object modules 
is FORTGCL; for FORTRAN IV (H), FORTHCL. 
These cataloged procedures consist of the 
control statements shown in Figures 43 and 
48, respectively. 


Figure 17 shows control statements that 
can be used to invoke. FORTGCL or FORTHCL. 
The control statements are identical for 
both compilers, except for the procedure- 
name specified on the EXEC statement: 
FORTGCL is specified for the (G) compiler; 
FORTHCL, for the (H) compiler. 


//jobname JOB 
4/ EXEC FORTGCL or FORTHCL 
//FORT.SYSIN DD * 


(ARTS SA OSS Sr oe rn or rearing 
| FORTRAN Source Module | 
De a ce ee ra (reece ee J 
/* 

Figure 17. Invoking the Cataloged Proce- 


dure FORTGCL or FORTHCL 


LINKAGE EDIT AND EXECUTE 


For FORTRAN IV (G), the cataloged proce- 
dure to linkage edit FORTRAN object modules 
and execute the resulting load module is 
FORTGLG; for FORTRAN IV (H), FORTHLG. 

These cataloged procedures consist of the 
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control statements shown in Figures 44 and 
49, respectively. 


Figure 18 shows control statements that 
can be used to invoke FORTGLG or FORTHLG. 
The control statements are identical for 
both compilers, except for the procedure 
name specified on the EXEC statement: 
FORTGLG is specified for the (G) compiler; 
FORTHLG, for the (H) compiler. 


//jobname JOB 
// EXEC FORTGLG or FORTHLG 
//UKED.SYSIN DD * 


ge eee a ee a ee eee 1 
| FORTRAN Object Module | 
lication nln atacand eee tas aril Us J 
/* 

Figure 18. Invoking the Cataloged Proce- 


dure FORTGLG or FORTHLG 


A sample deck structure to linkage edit 
and execute, as one load module, several 
object modules entered in the input stream 
is shown in Figure 19. 


The object module decks were created by 
the DECK compiler option. The linkage edi- 
tor recognizes the end of one module and. 
the beginning of another, and resolves 
references between them. 


//JOBBLG JOB 00, FORTPROG, MSGLEVEL=1 
//EXECLG EXEC PROC=FORTGLG or PROC=FORTHLG 
//UKED.SYSIN DD * 


PS ee et 1 
| First FORTRAN Object Module | 
eI ePaper rere IN eo Sarr ese er eee 4 
Ce rr a re ee ee Se a 1 
| Last FORTRAN Object Module | 
Ds i i So Ss ae a es a a Sc ao a a ee ee ee eo Se a a we 4 
/* 

/4/GO.SYSIN DD * 

Se ae ee 1 
| Data | 
Aas es eens tas ete et alee aes ace as a eee 3 
/* 

Figure 19. Linkage Edit and Execute 


A sample deck structure is shown in 
Figure 20 to linkage edit and execute, as 
one load module, object modules that are 
members of the cataloged sequential data 
set, OBJMODS, which resides on a tape 
volume. In addition, a data set in the 
input stream is processed nated the SYSIN 
data set. 


//JOBBLG JOB 00,FORTPROG, MSGLEVEL=1 
//EXECLG EXEC FORTGLG or FORTHLG 
//LKED.SYSIN DD DSNAME= =OBJMODS, DISP=OLD 
//GO.SYSIN DD *. 


Go eer ee ee ee 1 
{ Data { 
Leelee eet ee a ee et eee J 
/* 

Figure 20. Linkage Edit and Execute Object 


Modules in a Cataloged Data Set 


COMPILE, LINKAGE EDIT, AND EXECUTE 


The FORTRAN IV (G) cataloged procedure 
FORTGCLG and the FORTRAN IV (H) cataloged 
procedure FORTHCLG each pass a source 
through three procedure steps -- compile, 
linkage edit, and go (execute). These cat- 
aloged procedures consist of the control 
statements shown in Figures 45 and. 50, 
respectively. 


Figures 
statements 
FORTHCLG. 
statements 
identical, 
specified on the EXEC statement: 
is specified for the (G) compiler; 
BORE for the (H). 


21, 22, and 23 show control 

used to invoke FORTGCLG or 

For both compilers, control 

and contro] statement fields are 
except for the procedure name 
FORTGCLG 


//jobname. JOB oe 
/4/ EXEC PROC=FORTGCLG or PROC=FORTHCLG © 
7/FORT.SYSIN DD *. 


[mann nn nnn nnd 
| FORTRAN Source Module 1 
ae a es ae yee ee 4 
/* 

Invoking the Cataloged Proce- 


Figure 21. 
dure FORTGCLG or FORTHCLG 


Single Compile, Linkage Edit, and Execute: 
Figure 22. shows a sample deck structure to 


compile, linkage edit, and execute a single 
source module. 


//JOBSCLG JOB 00,FORTPROG, MSGLEVEL=1 
//EXECC EXEC FORTGCLG or FORTHCLG 
//FORT.«SYSIN DD * 


Ai ma a a aan aed alc ae a ore a 1 
| FORTRAN Source Module | 
i la etree pe ee er ee ae J 
/* 

//G0.«SYSIN DD * 

Sr ee ee er er 1 
| Data { 
hc cree di erioabvereninwe eles a ee ee. 4 
/* 

Figure 22. Single Compile, Linkage Edit, 


and Execute 


Batched Compile, Linkage Edit, and Execute: 
Figure 23 shows a sample deck structure to 
batch compile, linkage edit, and execute a 
FORTRAN main program and its subprograms. 
The source modules are placed in the input 
stream along with a data set that is read 
using the SYSIN data set. 


//JOBBCLG JOB 00, FORTPROG, MSGLEVEL=1 
//EXECCLG EXEC FORTGCLG or FORTHCLG 
//FORT.SYSIN DD # 


pe Sopa Pe Seed ents Po ce a oe fr MN NS ps ED er Le LO EN J 
re en 1 
{ Last FORTRAN Source ‘Module | 
sis atti carlin le eat ae ae ean een a ae eas a reat J 
/* 

4/GQ.SYSIN DD * 
een en ee 1 
Data | 
conte tee a th 4 
/* 

Figure 23. Batched Comps tes Linkage Edit, 


and Execute 


COMPILE AND LOAD 


The FORTRAN IV (G) cataloged procedure 
FORTGCLD and the FORTRAN IV (H) cataloged 
procedure FORTHCLD compile FORTRAN source 
modules and load the resulting object 
modules. The load step combines the func- 
tion of the linkage editor with execution 
of the edited module. 


Figure 23.1 shows control statements 
that can be used to invoke FORTGCLD or 
FORTHCLD. 


//jobname JOB 

//EXECLD EXEC PROC=FORTGCLD- 
Or PROC=FORTHCLD 

//FORTS*SYSIN DD * 


(eS Sa ee ne eee ee ees 1 
| FORTRAN Source Module ! 
a ee a eee eee eee i 
/* 


Figure 23.1. Invoking the Cataloged Proce- 


dure FORTGCLD or FORTHCLD 


Single Compile and Load: — Figure 23.2 shows 
control statements that can be used to com- 
pile and load a single source module. 
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//jobname JOB 00,*SOURCE A',MSGLEVEL=1 
//EXECA EXEC FORTGCLD or FORTHCLD 
//¥ORT.SYSIN DD * 


(TP ete eee Se SS See SS eee 1 
| FORTRAN Source Module | 
Mala ace acs a J 
/* 

//GO.SYSIN DD * 

CS ee te ee eS ere ear eer aS 1 
| Data l 
Lc ee is ee r 
/* 


Figure 23.2. Single Compile and Load 


Batched Compile and Load: Figure 23.3 
shows control statements that can be used 


to batch compile and load a FORTRAN main 
program and its subprograms. The source 
modules are placed in the input stream 
along with a data set that is read using 
the SYSIN data set. 


//jobname JOB 00,*SOURCE B',MSGLEVEL=1 
//EXECB EXEC PROC=FORTGCLD or PROC=FORTHCLD 
//FORT.SYSIN DD * 


Geis Oe ey ee CS at mfp ete we tes pe pee i ye 1 
| First FORTRAN Source Module | 
De See ee a ee r) 
a AR a Sa 1 
| Last FORTRAN Source Module | 
a a ret ee J 
/* 

//GO.SYSIN DD * 
er ee ee eee 1 
| Data | 
Uo ee a es ee ee 
/* : 


Figure 23.3.  Batched Compile and Load 


COMPILER PROCESSING 


The names for DD statements (ddnames) 
relate I/O statements in the compiler with 
data sets used by the compiler. These. 
ddnames must be used for the compiler. 

When the system is generated, names for I/O 
device classes are also established and 
must be used by the programmer. 


Compiler Name 


The program name for the FORTRAN IV (G) 
compiler is IEYFORT; for the FORTRAN IV (#8) 
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compiler, IEKAA00. If either compiler is 
to be executed without using the supplied 
cataloged procedures, an EXEC statement of 
the following form must be used: 


// EXEC PGM=IEYFORT or // EXEC PGM=IEKAAOO 


(For more information on procedures and 
options in invoking IEYFORT or IEKAA00, see 
"Appendix A: Invoking the FORTRAN 
Compiler.") 


Compiler ddnames 


The compiler can use seven data sets. 
To establish communication between the com- 
piler and the programmer, each data set is 
assigned a specific ddname. Each data set 
has a specific function and device require- 
ment. Table 3 lists the ddnames, func- 
tions, and device requirements for the data 
sets. 


To compile a FORTRAN source module, two 
of these data sets are necessary -- SYSIN 
and SYSPRINT, along with the direct access — 
volume(s) that contains the operating sys- 
tem. However, with these two data sets, 
only the source listing is generated by the 
compiler. If an object module is to be 
punched and/or written on a direct-access 
or magnetic tape volume, a SYSLIN and/or 
SYSPUNCH DD statement must be supplied.1 


For the DD statements SYSIN, SYSABEND, 
SYSUDUMP, or SYSPRINT, an intermediate 
storage device may be specified instead of 
the card reader or printer. The intermedi- 
ate storage device can be magnetic tape or 
a direct-access device. 


If an intermediate device is specified 
for SYSIN, the compiler assumes that the 
source module deck was written on interme- 
diate storage by a previous job or job 
step. If an intermediate device is speci- 
fied for SYSPRINT, the map, listing, and 
error/warning messages are written on 
intermediate storage; a new job or job step 
can print the contents of the data set. 
When the SYSPRINT data set is written on 
intermediate storage, carriage control 
characters are placed in the records. 


ee A St SD a i is a le es A ne Se cee can te 


4For FORTRAN IV (H), if a structured source 
listing is to be generated, a SYSUT1 DD 
statement must be supplied. If a cross 
reference listing is to be generated by 
the compiler, a SYSUT2 DD statement must 
be supplied. 





Table 3. Compiler ddnames 
{ddname [Function {Device Requirements {| 
ees U erent warner eee Bese a ee ee ee 4 
| FORTRAN IV (G) and FORTRAN IV (4H) { 
}~-----~- qo--=-----=- y--------------------4 
| SYSIN jreading the|ecard reader | 
| jsource | eintermediate | 
| |program | storage | 
|-------- 4----------- 4-------------------- { 
{[SYSPRINT|writing { «printer { 
| [the storage|eintermediate | 
| |map, | storage | 
| |listing, | | 
! Jlabel map, | | 
| |and | | 
| [messages { | 
~—--~---~}-~-----~--- $-~--~-----~--------- 
| | 


| SYSPUNCH | punching ecard punch+ 

| jthe object |edirect access 

| jmodule deck|emagnetic tape | 
wenn nf f + 

|SYSLIN joutput data|edirect access 

jset for the|emagnetic tape 

jobject {ecard punch? 

{module, | 

{used as | 

{input to | 

|the linkage| 

jeditor | 

4 


a a ee SN A SENS NY ER SS ND MIR SE SI a mR AS 


~------- 


| FORTRAN IV (H) Only 
}-------- ¥---—-~-----1------ —--------~---- 
jwork data |edirect access | 
| {set for thejemagnetic tape { 
{structured | { 
| {source { 
| Jlisting | 
| Jwork data edirect access | 
| jset for the|emagnetic tape | 
{ - | compiler | { 
{ [cross { | 
{ {reference {| | 
| jlisting | { 


I~ + 

| SYSABEND|writing the] eprinter | 
or jdump for an|eintermediate | 

| SYSUDUMP | abnormal | storage | 

| [termination | | 


t- aoe Ss ae i ee oe a ee ee a ee nee a re ioe ow oe 4 


{*+These must not be the same card punches. | 
a a J 





Compiler Device Classes 


Names for input/output device classes 
used for compilation are also specified by 
the operating system when the system is 
generated. The class names, functions, and 
types of devices are shown in Table 4. 


The data sets used by the compiler must 
be assigned to the device classes listed in 
Table 5. 


Compiler Data Set Assumptions 


Standard assumptions are made for the 
DCB parameter of the data sets used by the 
FORTRAN IV (G) and (H) compilers. Table 6 
contains the values set for the logical 
record length, record format, and blocksize 
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for the FORTRAN IV (G) compiler. Table 7 
contains the values set for the logical 
record length, record format, and blocksize 
for the FORTRAN IV (H) compiler. Of the 
values in these two tables, only the values 
for blocksize may be overridden with a DD 
statement. 


In addition, the programmer may specify 
the number of buffers to be used for the 
compiler data sets. If this information is 
missing, the queued sequential access 
method (QSAM) default is used. This 
default is three buffers for an IBM 2540 
card read punch and two buffers for all 
other devices. 


Compiler Options 


Options may be passed to the FORTRAN IV 
(G) or (H) compiler through the PARM par- 
ameter in the EXEC statement (see Figure 
24). 


The following information may be speci- 
fied for both compilers: 


1. Whether a listing of an object module 
is printed. 


2. The name assigned to the program. 


Table 4. Device Class Names 3. The number of lines per page for the 
cna Deeen ta RRERRSREEREIEEEn TEmtetannaEtaameetmmaizemtmeae | source listing. 
{Class Name[(Class Functions|Device Type | 
f---------- 4-~----------~---- 4---~-~-----~--- 4 4. Whether the source module is coded in 
| SYSSQ jwriting, [emagnetic tape| Binary Coded Decimal (BCD) or Extended 
| {reading, and j|[edirect access| Binary Coded Decimal Interchange Code 
| | backspacing | be ad (EBCDIC). 
| | (sequential) | | 
~-----~~--4-------- +--+ 4--------------4 5. Whether a list of the source state- 
| SYSDA Jwriting, jedirect access| ments, with their associated internal 
| jreading, Le | statement numbers, is printed. 
{ [ backspacing, { { 
| jand updating | | 6. Whether an object module is punched. 
| {records in | | 
| {place (direct) |{ { 7. Whether a storage map of variable 
---~--~--4}-~—-~-----~------ 4--~----~---+-- 4 names used in the source mdoule is 
| SYSCP {punching cards |ecard punch | printed. 
Sain pe ee ae ees 
A |SYSOUT output |eprinter | 8. Whether the compiler writes the object 
| 1 |emagnetic tape| module on external storage for input 
-------~---~4---~----~------4-------~+-----+- to the linkage editor. 
|B |SYSOUT card jecard punch | 
| jimage output | emagnetic Sape| 9. Whether traceback information is to be 
t—--—_————-— 4——-~---~-~—-~-~- 4t--~~--~-~--~-~—-— inserted into the source module. 
ee 5. Correspondence Between Compiler ddnames and Device Classes 
bien oan ee ee ee ee eg i ree ee ee 
(ddvame | Possible Device Classes (H) | Possible Device Classes (G) | 
{| SYSIN t SYSSQ, or the input stream device t -SY¥SSQ, or the input stream device { 
| | (specified by DD * or DD DATA), | (specified by DD * or DD DATA), | 
| | or a device specified: as. the | or a device specified as the | 
{ | card reader | card reader | 
}---------- 4------------------------------------ 4---------------------~----------==----- { 
{|SYSPRINT | A,SYSSQ | A, SYSSQ ! 
ante er Ramen ene 4——---——~..-— a i 
|SYSPUNCH | B,SYSCP1,SYSSQ, SYSDA | B,SYSCP | 
~----~---4-----~----~----~---------~---------- 4---------~------------------------------ { 
| SYSLIN t SYSSQ, SYSDA, SYSCP2 | SYSSQ,SYSDA | 
~--------- $-n---=-- == === == === == $= = = nn nf nnn nnn nnn | 
laa | SYSSQ | [ 
Sse a dy cs sgt tts 4~-----~—-- — — — — - nf ee ween +--+ - - ++ | 
{sysur2 | SYSSQ | { 
------~--- {----=~--------------~--------------~}---~----~---------~--------------------| 
|SYSABEND | A,SYSSQ | | 
or | | { 
|SYSUDUMP | i | 
ah le aia a i__-____....-_-_-- +--+. +--+ - +--+ + + + ~f 
[ 


ie ctoaatatea oars and SYSLIN must not be assigned to the same card punch. 
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Table 6. DCB Assumptions for the (G) Com- 


piler Data Sets 


(yee qe ear yao a easier eaiaueiaiaies 1 
| ddname | LRECL | RECFM | BLKSIZE | 
[------------ 4-------- }-------- 4---------- { 
| SYSIN {80 | FB | 80 j 
}------------ $--~----- }-------- $---------- 1 
{| SYSPRINT | 120 | FBSA [ 120 | 
proaaen nao t-------- t-------~ {~--------- { 
| SYSLIN } 80 | FBS | 80 | 
}-----~------ {-------- +-------- +---------- : 
| SYSPUNCH | 80 | FBSA | 80 | 
|------------ i a cal ie fone eee Mite a 
|Note: The values specified for LRECL and| 


| RECFM cannot be changed by the FORTRAN | 
{programmer. The value for BLKSIZE may be| 
| changed. | 


|For fixed-length records (F), S indicates| 


{standard blocks, with no truncated blocks | 
jor unfilled tracks within the data set. | 


The following information may be speci- 
fied for the (H) compiler only: 


1. Whether a storage map of labels used 
in the source module is printed. 


2. The type of optimization, if any, 
desired by the programmer. 


3. Whether a structured source listing is 
written. 


4. Whether a cross reference listing is 








Table 7. DCB Assumptions for the (H) Com- 
piler Data Sets 

ci gaara Dr ee a 
| ddname | LRECL | RECFM | BLKSIZE* | 

rin tan 4----=-----4-------~4-~--------4 
| SYSIN | 80 | FB | 802 | 
--~------- t----=-----4--------f------ 
| SYSPRINT | 137 {| VBA {| 1612 | 
psa f-aa--~=--~ t-------- 4---------- 4 
| SYSLIN | 80 | FB | 802 | 
~=-~~~~-~-4-~-------- 4 --------4----------f 
| SYSPUNCH | 80 | FB | 804 | 

ene Se : as Sc 
| SsysuT1 | 105 | FB {| 10502 | 
{| SYSUT2 {1024-40963| FB {1024-40962 | 


sds a taal 5 Septet ee ener reaeen meee ey! See ee mea aie rna 
|*This value may be increased by overrid- { 
| ing the present value, either through a | 
| DCB BLKSIZE parameter in the associated | 
| DD statement or through the DSCB block- | 
| size information for a preallocated data| 
| set -~- if the overriding value is a mul-| 
| tiple of LRECL. | 
|?This value is fixed by the compiler and | 
| may not be overridden. If BLKSIZE is | 
| provided either through a DCB parameter | 
| in the DD statement or through a DSCB | 
| for a preallocated data set, it is | 
| ignored. | 
|2The value is within this range, and the | 
| actual value is calculated during execu-| 
| tion. The size of one of the tables | 
| used by the compiler (the address con- {| 
| stant table) is compared with the track-| 
| size of the device specified by SYSUT2, | 
| 
| 


printed. and the LRECL and BLKSIZE fields are | 

equated to the smaller value. | 

Compiler options in the PARM parameter t--~-—~—~-~-~—~——~----~- ~~~ ~~ -- -------= 4 
need not be coded in any specific order. 

Sp haa ae Nem aa a a SP aac aed ec a rd 1 
| Compiler Options: FORTRAN IV (G) and FORTRAN IV (8) { 
| ee | 
| \PARM ' (LIst ). » SOURCE | 
PARM. procstep NOLIST {, NAME=xxxxxx] {, LINECNT=xx] » NOSOURCE | 
| \, DECK ,» MAP » LOAD 7 BCD ID $20 a03 | 
| » NODECK » NOMAP » NOLOAD es EBCDIC » NOID | 
| ae eo : 
| Compiler Options: FORTRAN IV (H) ONLY | 
| 
| )PARM EDIT ,;XREF /'2 2 3 ! 
| JPARM. procstep| = *(OPT={0{1|23] {,SIZE=nnnnk] }+NOEDIT( ), NOXREF | 
lg a i a ak lS a els Sl Se eit tr a al a a ca a a ES te a el a 4 


|*If the information specified contains blanks, parentheses, or equal signs, either the 
| subparameter must be enclosed by apostrophes or the entire PARM field must be deli- 


| mited by apostrophes instead of parentheses. 


{ equal signs, the delimiting parentheses or apostrophes may be omitted. 
|?The maximum number of characters allowed between delimiting parentheses is 100. If 
| the option list is enclosed in apostrophes, however, the PARM parameter must be coded 


| 
}#If only one option is specified and it does not contain any blanks, parentheses or | 
| 
| 
| 
| 


| on one card. 


Figure 24. Compiler options 
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LYST or. NOLIST 


The LIST option indicates that the 
object module listing is written in the. 
data set specified by the SYSPRINT DD. card, 
(The statements in the object module list- 
ing are in a pseudo assembler language for- 
mate) The NOLIST option indicates that no 
object module listing is written. A 
description of the object module listing is 
given in the section "System Output.” 


NAME=xxxxxx 


The NAME option specifies the name 
(xxxxxx) assigned to a module (main program 
only) by the programmer. If NAME is not 
specified or the main program is not the 
first module in a compilation, the compiler 
assumes the name MAIN for the main program. 
The name of a subprogram is always the name 
specified in the SUBROUTINE or FUNCTION 
statement. 


The name appears in the source listing, 
map, and object module listing. (See "Mul- 
tiple Compilation Within a Job Step" in 
this section for additional considerations 
concerning the NAME option.) 


LINECNT=xx 


The LINECNT option specifies the maximum 
number of lines (xx) per page for a source 
listing. The specified number (xx) may be: 
any in the range 01 to 99. If LINECNT is 
not specified, a default of 50 lines per 
page is provided. (The LINECNT option is 
effective only at compile time.) 


SOURCE or NOSOURCE 


The SOURCE option specifies that the 
source listing is written in the data set 
specified by the SYSPRINT DD statement. 
The NOSOURCE option indicates that no 
source listing is written. A description 
of the source listing is given in ene sec- 
tion “System Output." 


DECK or NODECK 


The DECK option specifies that an object 
module card deck is punched as specified by 
the SYSPUNCH DD statement. The object 
module deck can be used as input to the |. 
linkage editor in a subsequent job. NODECK 
specifies that no object module deck is 
punched. A description of the deck is 
given in the section "System Output. " 


MAP or NOMAP 


The MAP option specifies that a table of 
names is written in the data set specified 
by the SYSPRINT DD statement. The type and 
location of each name is listed. Included 
in the table of names for FORTRAN IV (H) is 





a table of labels appearing in the input 
stream. A description of the table is 
given in the section “System Output." The 
NOMAP option specifies that the table of 
names is not written. 


LOAD or _NOLOAD 


The LOAD option indicates that the 
object module is written in the data set 
specified by the SYSLIN DD statement. This 
option must be used if the cataloged proce- 
dure to compile and linkage edit, or to 
compile, linkage edit, and execute is used; 
ieee, the object module is used as input to 
the linkage editor in the current job. The 
NOLOAD option indicates that the object 
module is not written on external storage. 
This option can only be used if the cata- 
loged procedure to compile is used. 


BCD or EBCDIC 


The BCD option indicates that the source 
module is written in Binary Coded Decimal; 
EBCDIC indicates Extended Binary Coded 
Decimal Interchange Code. To intermix BCD 
and EBCDIC in the source module, BCD should 
be specified. 


Notes: 


1. If the EBCDIC option is selected, 
statement numbers passed as arguments 
must be coded as 


én 

However, if the BCD option is 
selected, statement numbers passed as 
arguments must be coded as 


$n 


and the $ must not be used as an 
alphabetic character in the source 
module. 


(The n represents the statement 


2. The compiler does not support BCD 
characters either in literal data or 
aS print control characters. Such 
characters are treated as EBCDIC. 
example, a BCD + used as a carriage 
control character will not cause 
printing to continue on the same line. 
Programs keypunched in BCD, therefore, 
should be carefully screened if errors 
relating to literal data and print 
control characters are to be avoided. 


For 


ID or NOID 
The ID option specifies that internal 


statement numbers (ISN) are to be generated 
for statements that call subroutine or con- 
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tain external function references. Calls 
to IBCOM are not affected. An additional 
four bytes are required for each linkage. 


The ISN is used by the traceback in the 
event of an error in the called subprogranm. 
See the discussion on “Load Module Output" 
in the section on "System Output." 


 caabaapaaatncatds | 


st sin ttn is 


The OPT=0 option indicates that the com- 
piler uses no optimizing techniques in pro- 
ducing an object module. The OPT=1 option 
indicates that the compiler treats each 
source module as a single program loop and 
optimizes the loop with regard to register 
allocation and branching. The OPT=2 option 
indicates that the compiler treats each 
source module as a collection of program 
loops and optimizes each loop with regard 
to register allocation, branching, common 
expression elimination, and replacement of. 
redundant computations. The options OPT=1 
and OPT=2 are described in more detail in 
the section "Appendix H: FORTRAN IV (H) 
Optimization Facilities." 


L.-J 


In normal instances, the amount of main 
storage allocated for the compile step 
depends on the region size in an MVT 
environment, the partition size in an MFT 
environment, or the machine size in a PCP 
environment. The compiler uses all avail- 
able main storage except for 3K bytes (1k= 
1024 bytes) which are left for non-resident 
system routines. 


In certain instances, however, a pro- 
grammer may wish to limit the amount of 
main storage used by the compiler. An 
example would be when the FORTRAN H compil- 
er is executed as the original task ina 
multitasking environment. Unless the 
amount of main storage used by the compiler 
is limited, no subtasks could be created 
since no more storage would be available in 
the region. 


The programmer may request the amount of 
main storage to be allocated for the com- 


Gy 


Piler by specifying SIZE=nnnnkK in the 
operand field of the EXEC statement. The 
term nnnn represents the amount of main 
storage available for compilation. This is 
approximately equal to the work area and 
the size of the compiler code. The value 
of nnnn can range from 115 to 9999, 


During compilation, if the unused avail- 
able work area is more than 10K bytes, the 
compiler prints the informational message, 
nnnnkK BYTES OF CORE NOT USED. This message 
indicates how much smaller the specified 
SIZE value could be. (If the SIZE paramet- 
er is not specified, this message indicates 
how much smaller the region size could be). 


The size of the region or partition in 
which the compiler is running must be at 
least 10K bytes larger than the specified 
SIZE value. If the SIZE parameter is spec- 
ified incorrectly, the compiler diagnostic 
message IEK410I (INVALID SIZE PARAMETER) is 
Sidhe and the SIZE parameter is ignored. 


EDIT or NOEDIT 

one EDIT option specifies that a struc- 
tured source listing is written in the data 
set specified by the SYSPRINT DD statement. 
This listing indicates the loop structure 
and the logical continuity of the source 
program. If this option is used, OPT=2 
must be specified and a DD statement with 
the name SYSUT1 must be supplied. The fol- 
lowing is a typical DD statement for a uti- 
lity data set: 
//SYSUT1L DD DSNAME=&6UT1, UNIT=SYSSQ, 

SPACE=(TRK, (40) ) 


§UT1 
specifies a temporary data set. 


UNIT=SYSSO 
specifies that the data set is to 
reside in a sequential device class. 


SPACE=(TRK, (40)) 
specifies that if the data set is 
assigned to a direct access device, 40 
tracks are to be allocated to the data 
set. 


The NOEDIT option specifies that no 
structured source listing is written. A 
description of the structured source list- 
ing is given in the section “System 
Output." 





ee oe ee cee ee 


The XREF option specifies that a cross 
reference listing of variables and labels 
is written in the data set specified by the 
SYSPRINT DD statement. This listing indi- 
cates the internal statement number of 
every statement in which a variable or 
label is used. If this option is speci- 
fied, a DD statement with the name SYSUT2 
must be supplied. The NOXREF option speci- 
fies that no cross reference listing is 
written. A description of the compiler 
cross reference listing is given in the 
section "System Output.” 


Note: The default compiler options shown 
in this publication are standard IBM 
defaults; however, during system genera- 
tion, an installation can choose its own 
set of default options. 


Multiple Compilation Within a Job Step 


Several compilations may be performed 
within one job step. The compiler recog~ 
nizes the FORTRAN END statement in a source 
module, compiles the program, and deter- 
mines if another source module follows the 
END statement. If there is another source 
module, another compilation is initiated 
(see Figure 25). 


ee ee dite TY ICE eS RE SE SE ON ENED RS OE NS SS ANY OE ne SE Oy <A Sm sD GE SY Ne ES SI HO eR le 


rr 
{|77“JOBRA JOB ,'FORTRAN PROG* 
|7/STEP1 EXEC FORTGC or FORTHC 
|77FORT.SYSIN DD * 

1 READ (8,10)A,B,C 


| 

| 

| 

| ° 

| END 
| SUBROUTINE CALC 
| 

| 

| 

| 


hee ees cceee since anaes ce eee seinen mean Sanne cine castin sol 


Multiple Compilation Within a 
Job Step 


Figure 25. 


Only one EXEC statement may be used to 
initiate a job step; therefore, compiler 
options can be stated only once for all 
compilations in a job step. 


In a multiple compilation, only the 
first program (if it is a main program) is 
given the name specified in the NAME 
option; all subsequent main programs are 
given the name MAIN. If the first program 
is a subprogram, the name specified in the 
NAME option is not used. If the NAME 
option is not specified, all main programs 
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in a multiple compilation are given the 
name MAIN. For example, in the multiple 
compilation, mene: 


//MULCOM JOB 
// EXEC FORTGC or 
FORTHC, PARM. FORT=* NAME=IOR* 
//¥®ORT.SYSIN DD * 
READ (1,10) ALP, BETA 
END 
SUBROUTINE INVERT(A, B) 


END 
READ(5) P,Q,R 


END 
/* 


the first main program is given the name 

IOR; the third program is given the name 

MAIN, The second program is assigned the 
name INVERT. 


When a multiple compilation is per- 
formed, the SYSLIN data set contains all. 
the object modules, because only one SYSLIN 
DD statement may be supplied for compiler 
output. If tape or direct-access output is 
specified for the compiler, the object | 
modules are written sequentially on the 
volume: 


eT SS SE A EN A SY A NS A SS A SN AN SE ES SED A SE NY ASO I Sg SI 


T 
| Object Module 1 | Object Module 2 


LINKAGE EDITOR PROCESSING 


The linkage editor processes FORTRAN 
object modules, resolves any references to 
subprograms, and prepares a load module for 
execution.+ To communicate with the linkage 
editor, the programmer supplies an EXEC 
statement and DD statements that define all 
required data sets; he may also supply 
linkage editor control statements. 


4Another IBM-supplied program, the loader, 
combines ~- into one job step -- the func- 
tions of the linkage editor with execution 
of the edited module. Details on the use 
of the loader can be found in the Linkage 
Editor and Loader publication. 


Linkage Editor Names 


Five linkage editor programs are avail- 
able with the operating system. The pro- 
gram names for these linkage editors and 
the minimum storage in which they are > 
designed to operate are: . . 


PCP and MFT MVT-System 
IEWLE150 15K 24K 
ITEWLE180 18K 26K 
TEWLF440 WUuK 5S4uK 
IEWLF880 88K 96K 
IEWLF128 128K 136K 


(Where K=1024 Bytes) 


All facilities described for the linkage 
editor in this publication are available 
with all five linkage editors, except that 
blocking of primary input/output is avail- 
able only with the higher level linkage 
editors: IEWLF440, IEWLF880, and IEWLF128. 


For simpler programming, the linkage 
editors have been assigned the alias pro- 
gram name IEWL. If the programmer speci- 
fies the parameter 


PGM=IEWL 


in the EXEC statement, the highest level 
linkage editor provided in the installa-~ 
tion's operating system is executed. If he 
wants to execute a specific linkage editor, 
he must specify the specific program name 
of that linkage editor. 


Linkage Editor Input and Output 


There are two types of input to the 
linkage editor: primary and secondary. 


Primary input is a sequential data set 
that contains object modules and linkage 
editor control statements. (A member of a 
PDS cannot be the primary input.) Any 
external references among object modules in 
the primary input are resolved by the link- 
age editor as the primary input is proc- 
essed. Furthermore, the primary input can 
contain references to the secondary input. 
These references are linkage editor control 
statements and/or external references in 
the FORTRAN modules. 


Secondary input resolves the references 
and is separated into two types: automatic 
call library and additional input specified 
by the programmer. The automatic call 
library should always be the FORTRAN 
library (SYS1.FORTLIB), which is the PDS 
that contains the FORTRAN library subpro- 
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grams. Through the use of DD statements 
the automatic call library can be concate- 
nated with other partitioned data sets. 


Three types of additional input may be 
specified by the programmer: 


e An object module used as the main pro- 
gram in the load module being con- 
structed. This object module, which 
can be accompanied by linkage editor 
control statements, is either a member 
of a PDS or is a sequential data set. 
The first record in the primary input 
data set must be a linkage editor 
INCLUDE control statement that tells 
the linkage editor to insert the main 
program. 


e An object module or a load module used 
to resolve external references made in 
another module. The object module, 
which can be accompanied by linkage 
editor control statements, is a sequen- 
tial data set or is a member of a PDS. 
The load module, which is a member of a 
PDS, cannot be accompanied by linkage 
editor control statements. An INCLUDE 
statement that defines the data set 
must be given. 


® A module used to resolve external 

references made in another module. The 
load module or object module, which can 
be accompanied by linkage editor con- 
trol statements, 
linkage editor LIBRARY control state- 
ment that defines the data set to the 
linkage editor must be given. 


In addition, the secondary input can con- 
tain external references and linkage editor 
control statements. The automatic call 
library and any of the three types of addi- 
tional input may be used to resolve 


is a member of PDS. A 


The load module created by the linkage 
editor is always placed in a PDS. Error 
messages and optional diagnostic messages 
are written on intermediate storage or a 
printer. In addition, a work data set is 
required by the linkage editor to do its 
processing. Figure 26 shows the I/O flow 
in linkage editor processing. 


Linkage Editor ddnames_ and Device Classes 


The programmer communicates data set 
information to the linkage editor through 
DD statements identified by specific ; 
ddnames (similar to the ddnames used by the 
compiler). The ddnames, functions, and 
requirements for data sets are shown in 
Table 8. 












SYSUT 1 
SYSLIB Work SYSLMOD 
Automatic area Output 
Call 


Module 


Library Library 







SYSLIN 


Linkage 
Editor 





Diagnostic 
Data Set 






Additional 
Libraries 





SYSPRINT 


references in the secondary input. Figure 26. Linkage Editor Input and Output 
Table 8. Linkage Editor ddnames 
Se Ee ee ey 
| ddname | Function | Device Requirements | 
(osbieas as oe seastemeiccetomminaeiennteemibcucrtecette: chacintecesenatemenieneianed arena SOE A A OS EE TO OE EL NE SL ON LD NE OS EE TE ER OE AO SE NY OS AES NT OD a SS EE AONE eae RNY RN ED EEE EP AON EES RE SA I NY ER a AO RO I “e 4 
|SYSLIN | |primary input data, normally the output of |edirect access | 
| {the compiler [emagnetic tape | 
| | jecard reader { 
bese ne pe rd a mR I ET te eerie reared 
| SYSLIB Jautomatic call library (SYS1.FORTLIB) jedirect access l 
en fn nn +4----------~--------~--------- 4 
|SYSUT1_. jwork data set jedirect access | 
st ceo a cc, sn aaa ee AN Se NE ee RE SE ep cae ee Meee SE ome eI eT ED EY A Ae I ES SS SS SS TS AY A Ae ey <n | + oS PS LS A SAL A OY AS A A TY TS OT A NG TO! EY AE OD IS EE AO 4 
| SYSPRINT |diagnostic messages | printer 
| jeintermediate storage device] 
wanna nnn nf nn nnn nh nnn nnd 
| SYSLMOD joutput data set for the load module [edirect access | 
[---—-- ~~ =} -- - - - = aan nnn nn nner nnn nr rn -{ 


hy Soa: 
| user-specified |additional libraries and object modules 


{ | ) I 


Na ce ne ie rw cee eee we rt cee rece le cam eee cee are ce a ne ae ne er a i ee me ce tn ee 


46. 


jedirect access _ | 
_[emagnetic tape | 


ee a a i we bh rn i re ee oe end 












Any data sets specified by SYSLIB or 
SYSLMOD must be partitioned data sets. The 
ddname for the DD statement that retrieves 
any additional libraries is written in 
INCLUDE and LIBRARY statements and is not 
fixed by the linkage editor. 


The device classes used by the compiler 
(see Table 4) must also be used with the 
linkage editor. The data sets used by 
linkage editor may be assigned to the 
device classes listed in Table 9. 


Table 9. Correspondence Between Linkage 
Editor ddnames and Device 
Classes 

te mee emer ee eer cee ere nets eee mene ear toe " a a a a aia eae a eat | 

| ddname |Possible Device Classes | 


wo -~ f + - + 


| SYSLIN |SYSSQ,SYSDA,or the input | 
| [stream device (specified | 
{ [by DD * or DD DATA), or a| 
| |device specified as the ] 
| {card reader | 
[-----—------- ~-~----------------------- { 
{SYSLIB | SYSDA | 
Le EN Se RN APs UI Ne at NII Ae a OS EC OEE Re d 
| SYSUT1 | SYSDA | 
i as ne cia ese Sagh rant as Sema ae ~-~- + - -- - - ---- - - - + - -~--- |] 
{SYSLMOD {SYSDA [ 
—-~-~--~-—------4----------——- ----- + - 4 
| SYSPRINT JA, S¥SSQ | 
aR PP erg mae { 


| Eee eee a area oS 


Additional Input 


The INCLUDE and LIBRARY statements are 


used to specify additional secondary input 


to the linkage editor. Modules neither 
specified by INCLUDE or LIBRARY statements 
nor contained in the primary input are 
retrieved from the automatic cali library. 


INCLUDE Statement: 


AO NE ES EO a LE SY LS A LT AN OT LE IM ES SE NN SAO EY ET GEL laa A a ata preceeded | 
loperation|Operand . { 
JINCLUDE |ddname[(member-name | 
| | U,member-name)...)] . | 
{ | (,ddname(€(member-name | 
| | [,member-name]...) }}ee- | 
A ee 


The INCLUDE statement is used to ‘incrude’ 


either members of additional libraries or a 
sequential data set. The “ddname" speci- 
fies a DD statement that defines either a 
library containing object modules and con- 
trol statements or just load modules, or 





defines a sequential data set containing 
object modules and control statements. The 
"member name" is not used when a sequential 
data set is specified. 


The linkage editor inserts the object 


module or load module in the output load 


module when the INCLUDE statement is 
encountered. 


LIBRARY Statement: 


lOperation|Operand | 
--------- $---------~--—---- =~ 
tT BRARY | ddname (member- name | 
| | (,member-namel]...) | 
{ | (,ddname(member-name | 
| { {,member-name]...)]... { 
[Siar er are aad cer india a meet relies eet caie rena ee 4 


The LIBRARY statement is used to include 
members of additional libraries. The 
“ddname“ must be the name of a DD statement 
that specifies a library that contains 
either object modules and linkage editor 
control statements, or just load modules. 
The "member name” is an external reference 
that is unresolved after primary input 
processing is complete. 


The LIBRARY statement differs from the 
INCLUDE statement: external references 
specified in the LIBRARY statement are not 
resolved until all other processing, except 
references reserved for the automatic call 
library, is completed by the linkage edi- 
tor. (INCLUDE statements resolve external 
references when the INCLUDE statement is 
encountered, ) 


Example: Two subprograms, SUB1 and SUB2, 
and a main program, MAIN, are compiled by 
separate job steps. In addition to the 
FORTRAN library, a private library, MYLIB, 
is used to resolve external references to 
the symbols X, Y, and Z Each of the 
object modules is placed in a sequential 
data set by the compiler, and passed to the 
linkage editor ‘job step. 


Figure 27 shows the control statements 
for this job. (Cataloged procedures are 
not used.) In this job, an additional 
library, MYLIB, is specified by the LIBRARY 
statement and the ADDLIB DD statement. ~ 
SUB1 and SUB2 are included in the load 
module by the INCLUDE statements and the DD 
statements DD1i and DD2. The linkage editor 
input stream, SYSLIN, is two concatenated 
data sets: the first data set is the 
sequential data set §&GOFILE which contains 
the main program; the second data set is 
the two INCLUDE statements and the LIBRARY 
statement. After linkage editor execution, 
the load module is placed in the PDS 
PROGLIB and given the name CALC. 
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S/S TOBX . » JOB 
//STEP1 EXEC | 


//SYSLIN DD 
//SYSIN DD 

Source module for. MAIN 
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//STEP2 EXEC 
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| //SYSLIN DD 

| //SYSIN DD 

| . Source module for SUB1 
| /* 

| //STEP3. _~-EXEC 
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| //SYSLIN DD 

| //SYSIN DD > 

| . Source module for SUB2 
| /* 

| //STEPY PGM=IEWL 
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| 
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EXEC 


//SYSLIB DD 
//SYSLMOD DD 
//BKDDLIB. DD 


//DD1 DD 
//DD2 DD 
//SYSLIN DD 
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‘INCLUDE. DD1 
INCLUDE DD2 


LIBRARY ADDLIB(X, Y, Z) 
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Figure 27. 


Note: This example shows the use of the 
FORTRAN IV (H) compiler (program name 
IEKAAO0). An example showing the use of | 
the (G) compiler would be identical except 
for program name; PGM=IEYFORT would be 
coded, where appropriate, instead of 
PGM=IEKAAOO. 


Linkage Editor Priority 


If modules with the same name appear in 


a single data set, only the module encoun- 
tered first is inserted in the output load 
module. 
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DSNAME=§GOFILE, DISP= (, PASS) , UNIT=SYSSQ 
PGM=IEKAA00, PARM=" NAME=SUB1, LOAD* 
DSNAME=$SUBPROG1 , DISP= (, PASS) , UNIT=SYSSQ 
PGM=IEKAA00, PARM=" NAME=SUB2, LOAD* 


DSNAME=&SUBPROG2, DISP=(, PASS) , UNIT=SYSSQ 


DSNAME=SYS1. FORTLIB, DISP=OLD 
DSNAME=PROGLIB (CALC) , UNIT=SYSDA 
_DSNAME= MYLIB, DISP=OLD 

DSNAME=*, STEP2. SYSLIN, DISP=OLD 
DSNAME=*. STEP3.SYSLIN, DISP=OLD 
DSNAME=*. STEP1. SYSLIN, DISP=OLD 
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Linkage Editor a exemehe -- (H) Compiler 


Other Linkage Editor Control Statements 


In addition to the LIBRARY and INCLUDE 
statements, other control statements are 
available for use with the linkage editor. | 
These statements enable the user to: spec- 
ify different names for load modules 
(ALIAS), replace modules within a load 
module (REPLACE), change program names 
(CHANGE), and name entry points (ENTRY). 

In addition, two statements (OVERLAY and 
INSERT) enable the programmer to overlay 
load modules. For a detailed description 
of these control statements, see the Link- 
age Editor and Loader publication, Form 
GC28-6538.. 


Options for Linkage Editor Processing 


The linkage editor options are specified 
in an EXEC statement. The options that are 
most applicable to the FORTRAN programmer 
are: 


PARM MAP 
PARM. procstep(| =(|XREF| [,LET] [,NCAL] 


{, LIST]) 


MAP or XREF 


The MAP option informs the linkage edi- 
tor to produce a map of the load module; 
this map indicates the relative location 
and length of main programs and subpro- 
grams. If XREF is specified, a map of the 
load module is produced and a cross 
reference list indicating all external 
references in each main program and subpro- 
gram is generated. The map or map and 
cross reference list are written in the 
data set specified by the SYSPRINT DD 
statement. If neither option is specified, 
the system generation option for the proce- 
dure for the linkage editor is put into | 
effect. Descriptions of the map and cross” 
reference listing are given in "System 
Output." 


LET 


The LET option informs the linkage edi- 
tor to mark the load module executable even 
though error conditions, which could cause 
execution to fail, have been detected. 


NCAL 


The NCAL option informs the linkage edi- 
tor that the libraries specified in the 
SYSLIB DD statement or specified in LIBRARY 
statements are not used to resolve external 
references. (The SYSLIB DD statement need 
not be specified.) The subprograms in the 
libraries are not inserted in the load 
module; however, the load module is marked 
executable. 


LIST 


The LIST option indicates that linkage 
editor control statements are listed in 
card-image format in the diagnostic output 
data set specified by the SYSPRINT DD 
statement. 


Other options can also be specified for 
the linkage editor. For a detailed de- 
scription of all linkage editor options, 


see the Linkage Editor and Loader publica- 
tion, Form GC28-6538. 


Data Set Reference Number (xx): 





LOAD MODULE EXECUTION 


When “PGM=program name" is used to in- 
dicate the execution of a load module, the 
module must be in either the system library 
(SYS1.LINKLIB) or a private library. When 
the module is in a private library, a JOB- 
LIB DD statement must be supplied to in- 
dicate the name of the private library. 

For example, assume that the load modules 
CALC and ALGBRA in the library MATH and the 
load module MATRIX in the library MATRICES 
are executed in the following job: 


//JOBN JOB 00, FORTPROG 

//JOBLIB DD DSNAME=MATH, DISP= (OLD, PASS) 
// DD DSNAME=MATRICES , DISP= (OLD, PASS) 
//STEP1 EXEC PGM=CALC 


//STEP2 EXEC PGM=MATRIX 


//STEP3 EXEC PGM=ALGBRA 


* 
e 


The JOBLIB DD statement concatenates the 
private library MATH with the system 
library. The private library MATRICES is 
concatenated with the system library, by 
concatenating the second DD statement with 
the JOBLIB DD statement. 


Execution ddnames 





In the source module, data set reference 
numbers are used to identify data sets. 
Data sets processed by a FORTRAN load 
module must be defined by DD statements. 
The correspondence between a data set 
reference number and a DD statement is made 
by a ddname. 


The ddname format that must be used for 
load module execution is 


FTxxF yyy 


where xx is the data set reference number, 
and yyy is a FORTRAN sequence number. 


When the 
system is generated, the upper limit for 
data set reference numbers is specified by 
the installation; it must not exceed 99. 
This upper limit does not correspond to the 
number of input/output devices. 
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If an installation specifies an upper 
limit of 99 for its data set reference num- 
bers, the ddnames and data set reference 
numbers correspond as shown in Table 10. 
Note that 0 is not a valid data set 
reference number. 


FORTRAN Sequence Number (yyy): The FORTRAN 
sequence number is used to refer to sepa- 
rate data sets that are read or written 
using the same data set reference number. 
For the first data set, the sequence number 
is 001; for the second 002; etc. This 
sequence number is incremented when (1) an 
END FILE statement is executed and a subse- 
quent WRITE is issued with the same data 
set reference number or (2) the “END=" exit 
is taken following a READ and a subsequent 
READ or WRITE is issued with the same data 
set reference number. 


A DD statement with the required ddname 
must be supplied every time the WRITE, END 
FILE, WRITE sequence occurs. If the FOR- 
TRAN statements in the following example 
are executed, DD statements with the 
ddnames indicated by the arrows must be 
supplied for the corresponding WRITE 
statements. 


Statements ddnames 
15 FORMAT (3F10.3,17) 
10 FORMAT (3F10. 3) 

pO 20 I=i1,J 


. 


20 WRITE(17,10)A,B,C -~--—------ > FTi7F001 


END FILE 17 
DO 30 I=1,N 


30 WRITE(17,15)X,¥,2,K --------- > FT17F002 
END FILE 17 
DO 40 I=1,M,2 


40 WRITE(17,10)A,B,C 


eae > FT17F003 


END FILE 17 


If the preceding instructions are used 
to write a tape, the output tape (unla- 
beled) has the appearance shown in Figure 
28. The tapemarks are written by execution 
of the ENDFILE statements. Successful 
execution of ENDFILE always includes writ- 
ing an end-of-data indicator. 
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Reference Numbers for Data Sets Specified 
in DEFINE FILE Statements 


The characteristics of any data set to 
be used during a direct-access input/output 
operation must be described by a DEFINE 
FILE statement. 


The data set reference number specified 
in any DEFINE FILE statement may refer to 
only one data set. In other words, the 
method described previously concerning 
references to separate data sets that are 
read or written using the same data set 
reference number is prohibited. For 
example, the statement 


DEFINE FILE 2(50,100,L,12) 


establishes a data set reference number of 
02. All subsequent input/output statements 
must refer to only one data set with the DD 
name of FTO2F001. (For a more detailed 
explanation of the DEFINE FILE statement, 
refer to the FORTRAN IV Language publica- 
tion, Form GC28-6515.) 





FORTRAN ‘Sequence Numbers 


To retrieve the data sets shown in 
Figure 28, the data set sequence number in 
the LABEL parameter must be supplied in the 
DD statement. The LABEL parameter. is de- 
scribed in detail in the section EGRCAYARS: 
Data Sets." : 

Gee 
LABEL=( [data-set-sequence-number] ) 


, BLPI 


The “data set sequence number" indicates 
the position of the data set on a sequen- 
tial volume. (This sequence number is. 
cataloged.) For the first data set on the 
volume, the data set sequence number is 1; 
for the second, it is 2; etc. : 


Table 10. Load Module ddnames 

Se re aaa Sana eae 
| Data Set Reference Numbers | ddnames . | 
}------------------~--~----~-- 4---+——---—- 
| 1 | FroiFfyyy | 
{ 2 | FTO2Fyyy | 
| : | : of 
| . i : | 
| : | excel 
| 13 j FT13Fyyy | 
I . | . | 
I . | ° [ 
| : | eee | 
| 99 | Fro9Fyyy | 
Lite cao wee pe Seis sse 


If one of the data sets shown in Figure 
28 is read in the same job step in which it 
is written, an END FILE statement must be 
issued after the last WRITE instruction. 
If the data set is to be read by the same 
data set reference number, DD statement 
FT17F004 is used to read the data set. The 
execution of a READ statement following an 
END FILE increments the FORTRAN sequence 
number by 1. For example, the following DD 
statements are used to write the three 
data sets shown in Figure 28 and then read 
the second data set; 


//¥T17F001 DD UNIT=TAPE, LABEL=(,NL), 
// ——s*DISP=(, PASS) 

//¥T17F002 DD UNIT=TAPE, LABEL=(2,NL), 
// ‘VOLUME=REF=*. FT17F001 
//¥T17F003 DD UNIT=TAPE, LABEL=(3, NL), 
17 VOLUME=REF=*, FT17F001 
//¥FT17F004 DD VOLUME=REF=*.FT17F001, 
W/ DISP=OLD, LABEL=(2,NL), 

// DSNAME=*, FT17F002, UNIT=TAPE 


i a i. nt 2 er | 


The VOLUME parameter indicates that the 
data set resides on the same volume as the 
data set defined by DD statement FT17F001. 
DD statement FT17F004 refers to the data 
set defined by DD statement FT17F002. 


If the data set is read by a different 
data set reference number, for example, 
data set reference number 18; then, the DD 
statement FT17F004 is replaced by the 
statement. 


//¥T18F001 DD VOLUME=REF=#.FT17F002, = xX 
Ff DISP=OLD, LABEL=(2, NL) 7 i 


If the data sets shown in Figure 28 are 
cataloged for later reading, and if the © 
following DD statements are used to write 
the data sets, 





the information necessary to retrieve the 
data sets is the DSNAME, the LABEL, and the 
DISP parameters. For example, if data set 
reference number 10 is used to retrieve 
data set Ni, the following DD statement is 
required. 


//®T10F001 DD DSNAME=N1i «DISP=OLD, x 
4/ LABEL=(, NL) 


If the data set is not cataloged and 
then retrieved in a later job, the VOLUME, 
UNIT, and LABEL information is needed to 
retrieve the data set. When the data set 
is created, the programmer must assign a 
specific volume to it. 


Assume the data sets shown in Figure 28 
were assigned the volume identified by the 
volume serial number A11111 when the data 
sets were created. If the second data set 
written on the volume is retrieved by data 
set reference number 10 in a later job, the 
following DD statement is needed. 


//FT10F001 DD VOLUME=SER=A11111,DISP=OLD, X 


// LABEL= (2, NL) , UNIT=SYSSQ 
END Exit: Data sets written using the same 


data set reference number can be retrieved 
in the same job or job step by using a 
facility provided in the FORTRAN language 
~- the “END=" exit in a READ statement. 
After the last data set is written and the 
END FILE is executed, a REWIND may be 
issued. A subsequent READ using the same 
data set reference number resets the FOR- 
TRAN sequence number to 001. When the last 
record of a data set has been read, an 
additional READ causes the END exit to be 
taken. On the next READ, the sequence 
number is incremented by 1. The data sets 
shown in Figure 28 can be read by using the 


//¥T17F001 DD DSNAME=N1, LABEL=(1, NL), X following sequence of statements. 

11 DISP=(, CATLG) , UNIT=TAPE, X . 

// VOLUME=SER=16 3K 

//¥T17F002 DD DSNAME=N2, LABEL=(2, NL), X Note: The DD statements used to create the 
//  ~——s—«x DISP=(, CATLG), VOLUME=REF=*. FT17F001 data sets also suffice for retrieving the 
//¥T17F003 DD DSNAME=N3, LABEL=(3,NL), X data sets. No additional DD statements are 
1/1 “DISP=(, CATLG) , VOLUME=REF=*. FT17F002 required. 

pono - - - - -- - - - +--+ +--+ + + + + +--+ nee 
| tapemark tapemark tapemark | 
| records records records | 
| : | 
| r= T TT T--?T = I 
| jA,B »CIAy By CleeelAy ByC| |[Xe¥.Z, KIX, YpZeKleoe|XeYypZeK| [AyByClewefAypB,C] foo. | 
| Louis Pee gure eg ek Dee BERT eri ip re ers CSasecer any SOR Innere ey Sa i 
| aa ° | 
| Written using DD Written using DD Written using DD | 
| ‘statement FT17F001 statement FT17F002 statement FT17F003_ | 
(+ S 
Figure 28. 


Tape Output for Several Data Sets Using Same. Data set Reference Number 
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REWIND 17 


100 READ(17,10,END=200)A,B,C ---->FT17F001 


GO TO 100 


eo © © pg e 8 8 


200 READ(17, 15, END=300)X, Y, Z,K---->FT17F002 


oO 200 


Q 
i?) 
e © © ple 0 e 


300 READ(17,10, END=350)A,B,C ---->FT17F003 


GO TO 300 


350 REWIND 17 


Concatenation: The data sets shown in 
Figure 28 can be concatenated and read as a 
single data set. The information necessary 
(assume cataloged data sets) to retrieve 
the data sets is the DSNAME, LABEL, and 
DISP parameters. For example, if data set 
reference number 16 is used to retrieve the 
data sets, the following DD statements are 
required. 


//¥T16F001 DD DSNAME=N1, DISP=OLD, x 
re LABEL=(, NL) 
Vt DD DSNAME=N2,DISP=OLD, x 
1/1 LABEL= (2, NL) 
sf DD DSNAME=N3,DISP=OLD, x 
/f | -LABEL= (3, NL) 


The ERR option the FORTRAN READ state- 
ment may be used to give control to the 
problem program if an uncorrectable I/0 
error occurs on a magnetic tape or direct- 
access device. This parameter is not ef- 
fective for data sets on unit record 
devices. 


Note: Concatenation of data sets with 
unlike attributes is not supported. Parti- 
tioned data sets with like attributes may 
be concatenated for input only. Concatena- 
tion of two or more members of the same PDS 
is not supported. 
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Partitioned Data Set Processing 


FORTRAN load modules may access two or 
more members of the same partitioned data. 
set (PDS); however, only sequential proces- 
sing is permitted. The PDS must be closed 
for one member before attempting to read or 
write another member. ; 


PDS_Processing Using "“END="_Option: One 
method of sequentially processing two or 
more members of the same PDS is by using 
the “END=" option in a FORTRAN sequential 
READ statement. When the “END=" option is 
executed and a subsequent READ or WRITE 
statement is issued with the same data set 
reference number, the FORTRAN sequence 
number is incremented by one. This allows 
another member of the PDS referenced by the 
same data set reference number to be . 
processed. 


The following FORTRAN program illus- 
trates how this method is put into effect: 


INTEGER #4 xX(20),¥(20) 


10 READ (2,1,END=98) X 
1 FORMAT (20A4) 
GO TO 10 
98 READ (2,1,END=99) Y | 
ee GO TO 98_— 
99 WRITE (6,2) X,Y 
STOP 
END 


Execution of statement 10 results in the 
processing of the first PDS member which is 
referenced by the FORTRAN sequence number 
001. If this member has the name MEMBER1 
and resides in the cataloged partitioned 
data set named PDS, the DD. statement that 
must be supplied is: 


//¥T02F001 DD DSN=PDS(MEMBER1), 
LABEL (,,,1N) , DISP=OLD 


When the “END=" option is exeucted in sta- 
tement 10 and the next READ statement, sta-. 
tement 98, is encountered, the FORTRAN 
sequence number becomes 002. This closes 
the PDS for the first member. Another 
member may then be processed. If its name 
is MEMBERS, the DD statement that must be 
supplied is: 


//¥T02F002 DD DSN=PDS(MEMBERS), 
LABEL=(,,, IN) ,DISP=OLD 


Note: For PDS processing, the "“END= 
option specification. is the only noehoa of 
incrementing the FORTRAN sequence number. 
The END FILE statement methods described 
earlier in the section “FORTRAN Sequence 
Number" cannot be implemented since END 
FILE statements cannot be used for parti- 
tioned data sets. 


PDS Processing Using REWIND: A second 
method of processing two or more members of 
the same PDS is the use of the REWIND 
statement in the FORTRAN program. This 
statement should be of the form: 


REWIND a 


where a is an unsigned integer constant or 
variable representing a data set reference 
number. Execution of the REWIND statement 
closes the data set represented by the 
integer a. Any subsequent READ or WRITE 
statement opens the data set again. 


The following example illustrates the 
use of the REWIND statement for the reading 
of two members of the same PDS: 


INTEGER *4 X(20), ¥(20) 
READ (2,1) X 

REWIND 2 

READ (3,1) Y¥ 

WRITE (6,2) X,Y 


1 FORMAT (20A4) 

2 FORMAT (* ', 20A4) 
STOP 
END 


Execution of the first READ statement 
results in the processing of the first PDS 
member which is referenced by the FORTRAN | 
sequence number 001. If the member has the 
name MEMBER1 and resides in the cataloged 
partitioned data set named PDS, the DD 
statement that must be supplied is: 


//FTO2FO001 DD ReEEct sent DEEee 


When the REWIND statement is executed, the 
PDS is closed for MEMBER1. “The next READ 
statement reopens the data set for another 
PDS member. If the next member name is 
MEMBERS, the DD statement that must be sup- 
plied is: 


//¥T03F001 DD DSN=PDS(MEMBERS), 
- LABEL=(,, , IN) , DISP=OLD 


The following example illustrates the use 
of the REWIND statement for the writing of 
two PDS members: 


INTEGER *4 X(20) 
DO 3 I=1,20 

3 X(I)=I 
WRITE (2,1)X 

1 FORMAT (* *, 20A4) 
REWIND 2 
WRITE (3,1)X 
STOP 
“END 


Here, the use of the REWIND statement for 
the data set reference number 2 closes the 
PDS. It is reopened for the next member by 
the reference to data set reference 


number 3. The DD statements that must be 
supplied are the same as those in the pre- 
vious example; however, LABEL=(,,,OUT) must 
be specified to indicate output processing. 


REWIND and BACKSPACE Statements 


The REWIND and BACKSPACE statements 
force execution of positioning operations 
by the control program. 


A REWIND statement instructs the control 
program to position the volume on the . 
device so that the next record read or 
written is the first record transmitted for 
that data set reference number on that | 
volume, irrespective of data set sequence 
numbers. The space acquired dynamically 
for I/O buffers for a data set is released 
as part of the REWIND operation. For this 
reason, a program that uses many data sets 
May conserve main storage by issuing REWIND 
statements after processing is completed. 
Since a REWIND statement closes the data 
set, any subsequent READ or WRITE statement 
opens the data set again. For a data set 
where DISP=MOD was specified, the READ or 
WRITE statement causes positioning at the 
end of the data set before the statement is 
executed. ; 


The BACKSPACE statement causes a 
backward skip of one logical record for 
each BACKSPACE issued. The records may be 
blocked or unblocked and of any valid type 
(F,U,V). Note that the default selection 
for FORTRAN data sets is U-type (undefined) 
records which can not be blocked. If a 
BACKSPACE statement requests backward move- 
ment past the load point or first record of 
the data set, that request is ignored. 
Since BACKSPACE is not supported across 
reels of a multi-reel data set on tape, a 
BACKSPACE request made under such condi- 
tions is treated as an attempt to move 
backward past the load point. The user is 
not made aware of input/output errors that 
have occurred during a BACKSPACE operation 
until he issues his next READ or WRITE. 
request. 


Notes: 


1. REWIND, BACKSPACE or END FILE state- 
ments specified for data sets defined 
in direct-access statements are 
ignored. 


2. BACKSPACE statements should not be 
directed to the data set defined as 
SYSIN. - . _ 


3. At end-of-file, if the programmer 


wishes to access the file, he should 
issue at least two BACKSPACE state- 
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ments. The first statement causes his 
file to be positioned before the tape- 
mark; the second positions the file at 
the beginning of the last logical 
record. . 


Error Message Data Set 


When the system is generated, the 
installation assigns a data set reference 
number so that execution error messages and 
information for traceback, DUMPs, and 
PDUMPs can be written on a data set. This 
data set is automatically opened at library 
initialization time. The programmer must 
define a data set, using a DD statement 
with the ddname for that data set reference 
number. This data set should be defined 
using the SYSOUT=A parameter. If the error 
message data set is on tape, the DD state- 
ment should contain DCB parameters for 
BLKSIZE=133 and RECFM=UA. (The System 
Generation publication, Order No. 
GC28-6554, explains the method of assigning 
the data set reference number. See the 
description of the OBJERR parameter in the 
section on the FORTLIB macro instruction.) 


Execution Device Classes 


For load module execution, the program— 
mer can use the same names assigned to 
device classes used by the compiler (shown 
in Table 4). However, additional names for 
specific devices and device classes can be 
assigned by the installation. The program- 
mer can choose which device to use for his 
data sets, and can specify the name of the 
device or class of devices in the UNIT 
parameter of the DD statement. 


DCB_Parameter 


The DCB parameter may be specified for 
data sets when a load module is executed. 
For information concerning the DCB parame- 
ter, see the section "Creating Data Sets." 


LOADER PROCESSING 


eee cannon ANY tS a Re Se 


The loader combines into one job step 
the functions of the linkage editor with 
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execution of the edited module. It pro- 
cesses FORTRAN object or load modules, 
resolves any references to subprograms, 
loads the module, and executes the loaded 
module. The loader does not produce load 
modules for program libraries. For 
detailed information on the loader, see the 
Linkage Editor and Loader cares 


Loader. Name 


The program name for the loader is 
IEWLDRGO. An alias program name, LOADER, 
has been assigned to the loader for simpler 
programming. If the loader is executed as 
a job step, the parameter PGM=LOADER or 
PGM=IEWLDRGO is used in the EXEC statement 
of that job step. 


Loader Input and Output 


The primary input to the loader is in 
the form of object modules and/or load 
modules. While processing an input module, 
the loader finds any references to subpro- 
grams in the input. module and resolves . 
them — 


The output of the loader consists of 
error and diagnostic messages and an 
optional storage map of the loaded program. 
The output is written on either an interme- 
diate storage device or a printer. The. 
loader does not. require intermediate work 
data sets. : eke. 


Loader _ddnames_and Device Classes 


The programmer communicates data set 
information to the loader through DD state- 
ments identified by specific ddnames. 
(These ddnames can be changed during system 
generation.) The ddnames, functions, and 
requirements for data sets are shown in 
Table 11. Only the SYSLIN DD statement is 
required; the other two are optional. In 
addition, any DD statements required for 
execution of the loaded program must be 
included in the job step. (These DD state- 
ments are described in the section “Load 
Module Execution". ) 


Table 11. Loader ddnames 

ieee iatear aan Co a eee oc 1 
| | | Device 

|ddname | Function {Requirements 

pn ef 
SYSLIN jPrimary input {direct access 


[the output of |card reader 


| 

| 

| 

| | 
| |data, normally [magnetic tape | 
{ | 
| |the compiler. | | 
4 


wae eee 4 > 
| SYSLIB [Automatic call |direct access | 
| [library l l 
| | (SYS1.FORTLIB) | | 

A A EE OY RT ED A TP AP TS TS TRS SNS EY RE ES OND ED ES A SS ~4------- ------- 
|SYSLOUT |Diagnostic | printer | 
| |messages and jintermediate | 
| |storage map. [storage device] 
-}------- — a: SE SEE RR ETD NT EE SD SEY AED GRRE cee ene <tete LO EP ED AS CD SS ES AS ED ED SUEY 
| user- |Data required any device 


| 
|specified|for execution | 
| Jof the loaded | 
| 
L 


| [program 
te 


ec cS Ss Sas Sls: ee ee ie re et et ee cme cee te Stee ceeee cee en mem oly ete ee went seers ee meer SEY SY ce cee 


The device classes used by the compiler 
(see Table 3) must also be used with the 
loader. The daca sets used by the loader 
may be assigned to the device classes 
listed in Table 12. 


Table 12. Correspondence Between Loader 
ddnames and Device Classes 


eS ea ee ne a ET A a ae aoe amen dome SS eS SS Sey 


|ddname | Possible Device Classes | 
inrenel eee Serie --~------------~---—------—-| 
|SYSLIN |SYSSQ, SYSDA, or the input | 
| |stream device (specified by DD | 
1a {* or DD DATA), or a device spe-| 
| |jcified as the card reader. | 
}--—-----}---------------—-------—--—-- 
| SYSLIB | SYSDA | 
}--------- }------------------------------- { 


: + 
Juser- |SYSDA, SYSSQ | 
[epee et eel | 


Loader Priority 


If modules with the same name appear in 
the input to the loader, the loader accepts 
only the first module which appears. 


Options for Loader Processing 


The loader and loaded program options 
are specified in the PARM field of the EXEC 
statement as follows: 


PRE ccs} ' ae! {Bt 








PARM. procstep NOMAP| }, NOCALL 
»LET / |, S1ZE=100K 
, NOLET ), SIZE=size 

{,EP=name] \|,PRINT |) 
, NOPRINT 





MAP or NOMAP 


The MAP option informs the loader to 
produce a map of the loaded program; this 
Map lists external names and their absolute 
storage addresses on the data set specified 
by the SYSLOUT DD statement. (If the 
SYSLOUT DD statement is not used in the 
input deck, this option is ignored.) The 
NOMAP option specifies that the map of the 
loaded program is not to be written. 


CALL or NOCALL or NCAL 


The CALL option specifies that an auto- 
matic search of the data set specified on 
the SYSLIB DD statement is to be made. (If 
the SYSLIB DD statement is not in the input 
deck, this option is ignored.) The NOCALL 
or NCAL option specifies that an automatic 
search of the SYSLIB data set is not to be 
made. 


LET or NOLET 


The LET option informs the loader to try 
to execute the object program even though a 
severity 2 error condition is found. (A 
severity 2 error condition is one that 
could make execution of the loaded program 
impossible.) The NOLET option informs the 
loader not to try to execute the loaded 
program when a severity 2 error condition 
is found. 


SIZE=size 


The SIZE option specifies the size, in 
bytes, of dynamic main storage that can be 
used by the loader. The size of the pro- 
gram to be loaded must be included in this 
figure. 
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EP=name 


The EP option specifies the external 
name to be assigned as the entry point of 
the loaded program. 


PRINT or NOPRINT 


The PRINT option informs the loader to 
produce diagnostic messages on the SYSLOUT 
data set. The NOPRINT option informs the 
loader not to produce diagnostic messages 
on the SYSLOUT data set; SYSLOUT will not 
be opened. 


Note: The default options are: NOMAP, 
CALL, NOLET, SIZE=100K, and PRINT. Other 
default options, however, can be specified 
with the LOADER macro instruction during 
system generation. 


The following are examples of the EXEC 
statement specified for loader processing: 


//LOAD EXEC . PGM=LOADER 
//LOAD. EXEC PGM=IEWLDRGO, PARM=(MAP, a 
// . "EP=FIRST') | 
//LOAD EXEC PGM=IEWLDRGO, PARM=(MAP, LET) 
//LOAD EXEC PGM=LOADER, PARM=NOPRINT 


Programming Example 


Figure 29 shows the control statements 
used in a job invoking the loader. Two 
subprograms, SUB1 and SUB2, and a main pro- 
gram, MAIN, are compiled in separate job 
steps. In addition to the FORTRAN library, 
a private library, MYLIB, is used to 
resolve external references. Each of the 
object modules is placed in a sequential 
data set by the compiler and passed to the 
loader step. 


It should be noted that cataloged proce- 
dures are not used in this job. The pri- 
vate library, MYLIB, is concatenated with 
the SYSLIB DD statement. SUB1 and SUB2 are 
included in the program to be loaded by 
concatenating them with the SYSLIN DD 
statement. The loaded program requires the 
FTO1F001 and FT1OFOO1. DD.statements for. 
execution. 
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on emai come meme come cane eore enee een iene wae ncn enn sony sou con ue sais ei se so caesar ome. ae, ne LE TP eM NE eee EO tS 4 
| //JOBX JOB 
|//STEP1 EXEC PGM=IEKAA0O, x 
|// PARM=* NAME=MAIN, LOAD* 


DSNAME=§GOFILE, 


|77FTO1F001 DD DSNAME=PARAMS, DISP=OLD 


| 
i 
| 
| 
| 
|7/SYSLIN DD xX] 
{77 DISP=(,PASS), x] 
|77 UNIT=SYSSQ | 
|7/SYSIN DD * | 
{ Source Module for MAIN | 
|/* | 
|//STEP2 EXEC PGM=IEKAAOO, x| 
{77 PARM=* NAME=SUB1, LOAD* | 
| , : | 
| | 
|//SYSLIN DD  DSNAME=&SUBPROG1, X| 
|77 DISP=(,PASS), x| 
|77 UNIT=SYSSQ | 
| //SYSIN DD #* { 
| Source Module for SUB1 | 
| 7* | 
| //STEP3 EXEC PGM=IEKAAOO, Xx] 
| 77 _ PARM="NAME=SUB2, LOAD* | 
| e : I 
| | 
|77SYSLIN DD DSNAME=&SUBPROG2, X| 
| 77 DISP=(,PASS), x] 
|77 UNIT=SYSSQ | 
|7/SYSIN DD * oo 
| _ Source Module for SUB2 | 
ZF ca: | 
|//STEP4 | EXEC PGM=LOADER | 
|//SYSLOUT DD SYSOUT=A I 
|//SYSLIB DD DSNAME=SYS1.FORTLIB, X| 
|77 _.... DISP=OLD | 
|77 _DD DSNAME=MYLIB, DISP=OLD | 
| 77SYSLIN DD DSNAME=*.STEP1. » SYSLIN, xX] 
|77 ee DISP=OLD 4 
|77 DD DSNAME=* -STEP2.SYSLIN,  X| 
|// --—-s DISP=OLD | 
|77 DD DSNAME=*.STEP3.SYSLIN, X| 
|// - DISP=OLD | 
| 
|7/FT10F001 DD SYSOUT=A | 
\7* | 

eta i a gb ci ea Sc ek sa de J 
eure 29. Loader Example 


DEDICATED WORK DATA SETS 





Under MVT, installations can provide 
preallocated or dedicated work data sets. 
If an installation has provided these data 
sets, the programmer can use. them as an 
alternative to creating his work data sets. 
Use of dedicated work data sets is more 
efficient than creating work data. sets by 
specifying a disposition. of NEW, DELETE .on. 
the work data set DD statement. a 2 


The system allocates these data sets at 
start initiator time (when input/output 
device requirements for a job step are ana- 
lyzed by the system). The number of data 
sets to be allocated is based on the number 
of work data set DD statements in a cata- 
loged procedure known as the initiator pro- 
cedure. The initiator procedure is supp- 
lied by IBM, and can be modified or rewrit- 
ten by the installation. 


To use a dedicated work data set, 
DSNAME=&&name or DSNAME=&name must be coded 
on a DD statement along with all other 
‘parameters used to define a new data set 
(see Figure 31). Every DD statement in a 
job with a "name" identical to a ddname on 
a DD statement in the initiator procedure 
is assigned the corresponding dedicated 
data set. If the system cannot assign this 
dedicated data set, it uses the parameters 
coded on the DD statement to create a tem- 
porary data set. 


Note: This facility does not support tape 
files. 

The following rules apply to the parame- 
ters of DD statements associated with dedi- 
cated work data sets: 


1. DSNAME -- The temporary name from the 
initiator procedure replaces that spe- 
cified in the DD statement. 


2. DISP -- The disposition specification 
cannot cause deletion of a dedicated | 
work data set. Disposition will 
appear to allocation as seiare a Or 
OLD, PASS, only. 


3. UNIT -- Specification of UNIT=AFF= 
DDNAME and DEFER on DD statements are 
ignored if they apply to dedicated 
work data sets. 


4. VOLUME -- Volume information on the DD 
statement is overridden by the volume 
information in the initiator proce- 
dure. A specification of REF=*. 
stepname.ddname is not valid since the 
initiator procedure may contain only 
one step. 


5. EXPDT/RETPD -- Expiration date or 
retention is ignored if it is speci- 
fied on the DD statement. 


6. SUBALLOC=stepname.ddname must not be 
specified since the initiator may con- 
tain only one job step. A specifica- 
tion of RLSE will be ignored. All 
other space parameters are allowed. 


Note: The units, primary space, secondary 
space, and directory quantities on the DD 
statement are compared with those in the 
dedicated data set. The data set will be 
assigned as long as it is equal to or 
greater than the parameter specified. 


7. DCB -- Information specified in the 
DCB parameter overrides the DCB speci- 
fication in the initiator procedure. 


For detailed information on 
pre-allocated or dedicated data sets, see 


the chapter “System Reader, Initiator and 
Writer Cataloged: Procedures” in the System 


Programmer * s Guide publication. 
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CREATING DATA_SETS 


Data sets are created by specifying VOLUME - volume on which the data set 


parameters in the DD statement or by using resides 
a data set utility program. This section 

discusses the use of the DD statement to 

create data sets. (The Utilities publica- LABEL - label specification 
tion, Order No. GC28-6586, discusses data 

set utility programs.) No consideration is 








given to optimizing I/O operations; this DISP - the disposition of the data set 
information is given in the section "Pro- after the completion of the job 
qram Optimization." step 


To create data sets, the DSNAME, UNIT, 


VOLUME, SPACE, LABEL, DISP, SYSOUT, and DCB SYSOUT - ultimate device for unit record 
parameters are of special significance (see : data sets 
Figure 31). These parameters specify: 
, DCB - tape density, record format, 
DSNAME - name of the data set record length 
UNIT - class and number of devices Examples of DD statements used to create 
used for the data set data sets are shown in Figure 30. 


Sample Coding Form 


Tr i-io Cd] 20 8-30 a0 i500 si-6o Tivo i820 
T2Tsa[Si6[7[eTslol 21s14[5\6 [7 e[siol l2[sl4[s[e[7Tslolol i [2[314Is{el7(s[slol  l21sl4isiel? lelsioti [2[si4islel7ieisiol  [213{41si6[7Isl9iol' j2|3/4/sie/7isisio 

















EaXia m0 | 2) Ze 2.0 ‘vag 14 atolioged Vata é : : 
//FT34FO@1, DD. DSNAME=MATRIX9D1SP=(NEW2CATLG),2,LABEL=(2SLoEXPDT=67031,)9, | 1 
i/ “UNIT=DACLASS »VOLUME=( PRIVATES RETAIN) SER=AAG9))9 | 
// PACE= (3099 ( 1662100). CONTIG ROUND). 










3 
// DCB=(RECFM=VB,LRECL=604,BLKSIZE=1212) 


‘ CiA2.0 ng. it Data Se are aay”. ob 
DD DSNA E=GTEMP>UNIT=(TAPECLS 23) 9DISP=(NEWSPASS )5 


VOLUME= (9 RETAIN 1999SER=(777 98889999 444) ) 9 
// DCB= (DEN=2 RECFM=UsBLKSIZE= 2500) 


























QINP {:2 Sy | AR |e OMA Dag Ns Oui 2 : 
i= 
cite ha, 4 BY Oe Ae 


/ISYSPRINT, DD SYSOUT=A9DCB=( BLKSI ZE= 144 ,DEN=2,, TRTICH=C ) 





les ei f. ONS, oF, 


=1000) 9 
VOL=SER=A6@5 


Figure 30. Examples of DD Statements 
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ses eqeq BHbutzeerD 


6S 


"Te aanbtg 


VOL 


VOLUMEL | ([PRIVATE][, RETAINIL, volume-sequence-number][ ,volume-count] | REF=)*.ddname ya 
jt: .Stepname.ddname 
*.s tepname. pies ee aanaie | 
| sce a l (primary-quanti ty[ d tity][.d eae 
* ’ ~quanti ty[ ,secondary-quanti »directory- i 
laverane. réciid:. iangth'| y~q y ry-q y irectory-quantity])[,RLSE] ener [ ,ROUND]6)7 


sqesg e3eq ButzeerD AOJ SraqoueIed aa 


: ds name | 0 oe 
_, (*.ddname . (°) 1)10 {FIU;CALMI[TJ[ ,BLKSIZE=xxxxx] - a 
DCB=( |, “stepname. Nanda pai serene . | fowo { ,OPTCD=C ]} ,RECFM= FRLAIM][T], LRECL= =XXxXx,BLKSIZE=xxxxx ( yas 
* .s tepname .procstep.ddname 3 = VESICBILAIMI[ 


_7A11 subparameters are positional subparameters. 


| 12This form is used only with compiler and linkage editor blocked input and output. 














yestane 

\ )DSNAMEL _ dsname(elenent) ( 
YOSN Of | name 

-&name(element) \ 
DUMMY 5 | 
DDNAME=ddname 






UNIT=(name[, {n|P}*])2 
»SER=(volume-serial-number[, volume-serial-number].. 
‘ds name ) 


att ,IN ] [,EXPDT=yydad 
LABEL= ({data- -set-sequence- bea ahr »NL S [PASSWORD] ,OUT »RETPD=xxxx |)° 


2 SYSOUT=A 
SYSOUT=B 
\ SYSOUT=(X[ ,program-name ][,form-no.]) 


,DELETE |9 |,DELETE 
\aco| KEEP ,KEEP 
sPASS ,CATLG | )7 
D\ ,CATLG ,UNCATLG 
SHR , UNCATLG 


TI], LRECL=xxxxx, BLKSIZE= xxx |! 
»BLKSIZE=xxxx 12 


11f neither "n" nor "P" is specified, 1 is assumed. 

2I1f only “name” is specified, the delimiting parentheses may be omitted. 

31f only one “volume-serial-number" is specified, the delimiting parentheses may be omitted. 
SER and REF are keyword subparameters; the remaining subparameters are positional subparameters. 
SThe assumption made when this subparameter is omitted is discussed with the SPACE parameter. 
SROUND can be specified only if “average-record-length" is specified for the first subparameter. 


SEXPDT and RETPD are keyword subparameters; the remaining subparameters are positional subparaieters. 
The assumption made when this subparameter is omitted is discussed in "Job Control Language." 
—10BUFNO is the only DCB subparameter that should be specified for direct access data sets. 

“The first Subparameter is ‘positional; all other subparameters are keyword subparameters, 


USE OF DD STATEMENTS FOR DIRECT-ACCESS DATA 
SETS 


Data sets that are referred to in 
FORTRAN direct-access input/output state- 
ments must first be defined in the DEFINE 
FILE statement. However, the DD statement 
may be used in conjunction with the DEFINE 
FILE statement for designating other char- 
acteristics of the data set. 


If the user chooses to exercise this 
option, caution must be taken in specifying 
the parameters in the DD statement (Figure 
31). The DUMMY parameter may not be used 
with FORTRAN defined direct-access data 
sets because of a conflict in specifica- 
tions. The remaining parameters of the DD 
statement must conform to the specifica- 
tions in the DEFINE FILE statement. The 
DEN and TRTCH subparameters of the DCB 
parameter apply only to data sets residing 
on magnetic tape volumes; consequently, 
their use with FORTRAN defined direct- 
access data sets may also produce a 
conflict. 


The following statements illustrate the 
possible conflicts that may arise between 
the DEFINE FILE and DD statements. 

DEFINE FILE 2(50,100,E, 12) 


//¥T02F001 DD DSNAME=BOOL, DISP= (NEW, CATLG) 1 


// LABEL=(, SL), UNIT=SYSDA, 2 
11 VOLUME= (PRIVATE, RETAIN), 3 
// SPACE=(100, (50, 30),,CONTIG), 4 
11 DCB=(DEN=1, RECFM=F, BLKSIZE=100) 


The SPACE parameter must be included for 
all direct-access data sets, but it must 
also conform to the DEFINE FILE statement; 
the record length in both statements must 
be the same. In the DCB parameter, the 
subparameter DEN applies only to data sets 
residing on magnetic tape volumes. If the 
DUMMY parameter is specified in a DD state- 
ment for a direct-access data set, the con- 
flict arises because the disposition of a 
direct-access data set is always checked 
and a dummy data set has no disposition. 


Note: The name field of the DD statement 
must contain FTxxF001, where xx is the data 
set reference number specified in the 
DEFINE FILE statement. 


DATA_SET NAME 


The DSNAME parameter specifies the name 
of the data set. Only four forms of the 
DSNAME parameter. are used to create data 
sets. 
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DSNAME=dsname 

DSNAME=dsname (element 
specify names for data sets that are 
created for permanent use. 


Note: Members of a partitioned data- 
set may be read as input to a FORTRAN 
object program or created as output 
from a FORTRAN object program, but 
only if the member name and either 
LABEL = (,,,1N) or LABEL = (,,,OUT) 
are specified in an associated DD 
statement. 


DSNAME=éname 

DSNAME= &name (element)\ 
specify data sets that are temporarily 
created for the execution of a single 
job or job step. 


DUMMY 
is specified in the DD statement to 
inhibit I/O operations specified for 
the data set. A WRITE statement is 
recognized, but no data is trans- 
mitted. (When the programmer speci- 
fies DUMMY in a DD statement used to 
override a cataloged procedure, all 
parameters in the cataloged DD state- 
ment are overridden. ) 


Note: A DUMMY data set should only be 
read if the "END= " option is speci- 
fied in the FORTRAN READ statement. 

If the option is not specified, a read 
causes an end of data set condition, 
and termination of execution of the 
load module. 


DDNAME=ddname 
indicates a DUMMY data set that will 
assume the characteristics specified 
in a following DD statement “ddname". 
The DD statement identified by 
*"ddname" then loses its identity; that 
is, it cannot be referred to by an 
*....ddname parameter. The statement 
in which the DDNAME parameter appears 
may be referenced by subsequent 
*....ddname parameters. If a subse- 
quent statement identified by “ddname*" 
does not appear, the data set defined 
by the DD statement containing the 
DDNAME parameter is assumed to be an 
unused statement. The DDNAME parame- 
ter can be used five times in any 
given job step or procedure step, but 
no two uses can refer to the same 
“ddname". The DDNAME parameter is 
used mainly for cataloged procedures. 


SPECIFYING INPUT/OUTPUT DEVICES 





The name and number of input/output 
devices are specified in the UNIT 
parameter, : 


UNIT=(name([, {n]|P}] ) 


name 
is given to the input/output device 
when the system is generated. 


n|P 
io specifies the number of devices allo- 
cated to the data set. If a number 
"n" is specified, the operating system 
assigns that number of devices to the 
data set. “P“ is used with cataloged 
data sets when the required number of 
volumes is unknown. The control pro- 
gram assigns a device for each volume 
required by the data set. 


Note: See Appendix F for a list of input/ 
output unit types. 


SPECIFYING VOLUMES 


The programmer indicates the volumes 
used for the data set in the VOLUME. 
parameter. 


VOLUME=( [PRIVATE] (, RETAIN] 
{, volume-sequence-number] 
{, volume-count] 


» SER= (volume~serial—number 
{, volume-serial-number]...) 


dsname 

, REF= )*, ddname ) 
*,stepname. ddname 
*,stepname. procstep. ddname 


identifies the volume <s) assigned to 
the data set. 


PRIVATE 
indicates that the assigned volume is 
to contain only the data set defined 
by this DD statement. PRIVATE is 
overridden when the DD statement for a 
data set requests the use of the pri- 
vate volume with the SER or REF sub- 
parameter. The volume is demounted 
after its last use in the job step, 
unless RETAIN is specified. 


RETAIN 
indicates that this volume is to 
remain mounted after the job step is 
completed. Volumes are retained so 
that data may be transmitted to or 
from the data set, or so that other 
data sets may reside on the volume. 
If the data set requires more than one 
volume, only the last volume is 


retained; the other volumes are 
demounted when the end of volume is 
reached. If each job step issues a 
RETAIN for the volume, the retained 
status lapses when execution of the 
job is completed. 


volume-sequence-number 

is a 1- to 4-digit decimal number that 
specifies the sequence number of the 
first volume of the data set that is 
read or written. The volume sequence 
number is meaningful only if the data 
set is cataloged and volumes lower in 
sequence are omitted. 


volume~count 
specifies the number of volumes 
required by the data set. Unless the 
SER or REF subparameter is used, this 
subparameter is required for every 
multi~volume output data set. 


SER 
specifies one or more serial numbers 
for the volumes required by the data 
sets. A volume serial number consists 
of one to six alphameric characters. 
If it contains less than six charac- 
ters, the serial number is left- 
adjusted and padded with blanks. If 
SER is not specified, and DISP is not 
specified as NEW, the data set is 
assumed to be cataloged and serial 
numbers are retrieved from the cata- 
log, or inherited from passed data 
sets in a previous step. A volume 
serial number is not required for new 
output data sets. 


REF 
indicates that the data set is to 
occupy the same volume(s) as the data 
set identified by “dsname", 
"*,ddname", “*.stepname.ddname", or 
*.stepname.procstep.ddname. Table 13 
shows the data set references. 


When the data set resides on a tape 
volume and REF is specified, the data set 
is placed on the same volume, behind the 
data set referred to by this subparameter. 
If this subparameter is used, the UNIT 
parameter, if specified, is ignored. 


If SER or REF is not specified, the con- 
trol program allocates any nebrEsavare 
volume that is available. 
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Table 13. Data Set References 

aaa a ee eee ea aia atm nee ale SR ee ee ae erin anatomy 
| Option | Refers to | 
| REF=dsname ja data set named | 
| | “dsname* | 
| REF=*,ddname ja data set indicat- 


| 

H |“ddname* in the 

| [current job step 
}------—-----------— +-------—-----—----! 
|REF=*.stepname.ddname|a data set indicat-| 
fo jed by DD statement | 
| |"ddname™ in the l 
| | | 
| | 


{ 
jed by DD statement | 
| 
| 


ale 


jprevious job step 
|"stepname* — 


|REF=*.stepname. ja data set indicat-| 
| procstep.ddname|ed by DD statement | 
| |"ddname* in the | 
| |procedure step | 
| |“procstep" invoked | 
| jin the previous job| 
| [step “stepname" | 


Mi aie raises eee ec neo eencteseioss eaensae en EC Ee ee ee | 


SPECIFYING SPACE ON DIRECT-ACCESS VOLUMES 


The programmer indicates the amount of 
space for a data set in the SPACE 
parameter, 


TRK 
SPACE= (<CYL 

average~record-length) 

, (primary-quantity 

(, secondary-quantity] 

{, directory-quantity]) 
7 MXIG 
CONTIG 


The SPACE parameter specifies: 


1. Units of measurement in which space is 
allocated. 


2. Amount of space allocated. 
3. Whether unused space can be released. 


4. In what format space is allocated. 


TRK 

CYL 

fom ce a 
specifies the units of measurement in 
which storage is assigned. The units 
may be tracks (TRK), cylinders (CYL), 
or records (average record length in 
bytes expressed as a decimal number 
less than or equal to 65,535). 
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(primary-quantity [,secondary-quantity] 

(directory-quantity]) 
specifies the amount of space allo- 
cated for the data set. The “primary 
quantity" indicates the number of 
records, tracks, or cylinders to be 
allocated when the job step begins. 
The “secondary quantity" indicates how 
much space is to be allocated each 
time previously allocated space is 
exhausted. (Note: The maximum number 
of times secondary allocation will be 
made is 15.) . 


For example, by specifying: 
SPACE= (120, (400,100) ) 


space is reserved for 400 records; the 
average record length is 120 charac- 
ters. Each time space is exhausted, 
space for 100 additional records is 
allocated. 


The “directory quantity" is used only 
in writing a PDS; it specifies the 
number of 256-byte blocks to reserve 
for the PDS directory. 


By specifying: 
SPACE=(CYL, (20, 2, 5)) 


20 cylinders are allocated to the data 
set. When previously allocated space 
is exhausted, two additional cylinders 
are allocated. Furthermore, space is 
reserved for five 256-byte blocks in 
the directory of a PDS. 


Note: When the FORTRAN programmer 
uses a direct-access data set, he must 
allocate space on the direct-access 
volume in two places: the DEFINE FILE 
Statement in the source module and a 
DD statement at load module execution. 
He must also make certain that the DD 
statement SPACE parameter contains an 
adequate SPACE allocation, based on 
the value specified in the DEFINE FILE 
statement. : 


RLSE 
indicates that all unused external 
storage assigned to a data set is to 
be released when the data set is 
closed in a job step. 


Note: The RLSE subparameter is 
ignored for any file for which END 
FILE is specified, or for which a 
BACKSPACE statement is issued. 


MXIG 
ALX 
CONTIG 


specify the format of the space allo- 


cated to the data set, as Eequestet in 
the “primary quantity". : 


MXIG 
requests the largest single block of 
contiguous storage that is greater 
than or equal to the space requested 
in the “primary quantity". 


requests all available storage on the 
volume as long as there is at least as 
much space as specified in the "pri- 
mary quantity". The operating system 
must be able to allocate at least the 
amount specified as the “primary quan- 
tity" by using, at most, five noncon- 
tiguous areas of storage. 


CONTIG 
requests that the space indicated in 
the “primary quantity“ be contiguous. 


If the subparameter is not specified, 
or if any option cannot be fulfilled, 
the operating system attempts to 
assign contiguous space. If there is 
not enough contiguous space, up to 
five noncontiguous areas are 
allocated. 


ROUND 
indicates that allocation of space for 
the specified number of records is to 
begin and end on a cylinder boundary. 


Note: If a data set might be written on a 
direct access volume, the SPACE parameter 
must be specified in the DD statement. 


LABEL INFORMATION 


The label parameter (LABEL) is used to 
specify the type and contents of a data set 
label. 


NL 
LABEL= ( [data-set-sequence-number] 4, SL 
» BLP 


,O 7 EXPDT=yyddd 
{, PASSWORD] IN RETPD=xxxx |) 


data-set-sequence-number 
is a 4-digit number that identifies 
the relative location of the data set 
with respect to the first data set on 
a tape volume. (For example, if there 
are three data sets on a magnetic tape 
volume, the third data set is identi- 
fied by data set sequence number 3.) 
If the data set sequence number is not 
specified, the operating syeten 
assumes 1. : 


NL : 
sL 
BLP 


specifies data set label information. 
SL indicates standard labels. NL 
indicates no labels (applicable only 
to data sets residing on a tape 
volume). BLP indicates that label 
processing should be bypassed. 


The feature that allows bypassing of 
label processing is a system genera- 
tion option (OPTIONS=BYLABEL). If 
this option has not been specified and 
BLP is coded, the system assumes NL. 


PASSWORD 

is used to secure a data set from 
unauthorized access. The operating 
system assigns security protection to 
the data set. Subsequently, whenever 
the data set is retrieved, the opera- 

-. tor must respond to a message by issu- 
ing the correct password. Detailed 
information on the use of the PASSWORD 
subparameter can be found in the Job 


Control Language and the Data Manage- 
ment and Supervisor Services publica- 


tions. Note that prudence should be 
exercised in specifying this option; 
indiscriminate use of PASSWORD can 
result in operation inefficiencies. 


OUT 
[Es 

The subparameters IN, OUT are used to 
contro] data sets that are to be processed 
as input or output only. Thus a form of 
read/write protection is offered by. EheSe 
parameters. 


For input data sets, the IN subparameter 
allows: 


e Access to members of a partitioned data 
set (for read purposes only). 


°e A means of avoiding operator interven- 
tion when reading a data set that is 
protected by either a high expiration 
date or by the absence of the write 
ring (file-protected tape). 


For output data sets, the OUT subparam- 
eter allows a member of a partitioned data 
set to be created. 


IN 

specifies that the data set is to be 
processed for input only. IN will be 
recognized only if the first input/ | 
output operation specifying the data 
set is a READ. If the first operation 
is not READ, the IN subparameter has 
no effect and both READ/WRITE opera- 
tions are allowed. When the first 
operation is a READ, any subsequent 
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WRITE issued to the data set will be 
treated as an error, and the job will 
be terminated. Additionally, the 
specification of IN permits the read- 
ing of a password-protected data set 
(if the correct password is supplied) 
and avoids the need of operator inter- 
vention when reading a data set pro- 
tected by either a high expiration 
date or the absence of a write-ring. 


ouT 
specifies that the data set defined by 
the DD statement is to be processed 
for output only. OUT will be recog- 
nized only if the first input/output 
operation specifying the data set is a 
WRITE. If the first operation is not 
WRITE, the OUT subparameter has no 
effect and both READ/WRITE operations 
are allowed. However, the creation of 
a member of a partitioned data set is 
not allowed when the first operation 
is READ, even though the OUT subparam- 
eter was specified. When the first 
Operation is a WRITE, any subsequent 
READ issued to the data set will be 
treated as an error, and the job will 
be terminated. OUT must be specified 
to create a member of a Boris Sones 
data set. 


exepTwyy aad 

RETPD=xxxx 
specifies how long the data set shall 
exist. The expiration date, EXPDT= 
yyddd, indicates the year (yy) and the 
day (ddd) the data set can be deleted. 
The period of retention, RETPD=xxxx, 
indicates the period of time, in days, 
that the data set is to be retained. 
If neither is specified, the retention 
period is assumed to be zero. 


DISPOSITION OF A DATA SET 





The disposition of a data set is speci- 
fied by the DISP parameter; see “Data 
Definition (DD) Statement". The same 
options are used for both creating data 
sets and retrieving previously created data 
sets. When a data set is created, the sub- 


parameters used are NEW, MOD, KEEP, PASS, © 


and CATLG. 


WRITING A UNIT RECORD DATA SET ON AN 
INTERMEDIATE DEVICE 





With the SYSOUT parameter, output eats 
sets. can be routed to a system output 
stream and handled mach the same as system 
messages. 
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SYSOUT=A 
can be used with sequential schedulers 
to indicate that the data set is to be 
written on the system output device. 
No: parameter other than the DCB param- 
eter has any meaning when SYSOUT=A is 


used. This form of the SYSOUT parame- 
ter may be specified for printer data 
sets. 

SYSOUT=B 


can be used with sequential schedulers 

to indicate the system card punch 

unit. The priority scheduler routes 
the output data set to class B. 


SYSOUT=(x[, program-name] {,form-number] ) 
indicates that the data set is normal- 
ly written on an intermediate direct 
access device during program execu- 
tion, and later routed through an out- 
put stream to a system output device. 
The "x" is to be replaced by an alpha- 

~pbetic or numeric character that speci- 
fies the system output class to be 
used. Output writers route data from 
the output classes to system output 
devices. The DD statement for this 
data set can also include a unit 
specification that describes the 
intermediate direct access device and 
an estimate of the space required. If 
these parameters are omitted, the job 
scheduler provides default values as 
the job is read and processed. 


If there is a special installation 
program to handle output operations, 
its “program-name* should be speci- 
fied.  “Program-name"™ is the member 
name of the program, which must reside 
in the system library. 


If the output data set is to be 
printed or punched on a specific type 
of output form, a four-digit "form 
number" should be specified. This 
form number is used to instruct the 
operator, in a message issued at the 
time the data set is to be printed, of 
the form to be used. 


Note: If the DEN subparameter is explicit- 
ly specified for SYSOUT data sets, only 
DEN=2 is allowed in the DCB parameter. In 
addition, TRTCH=C must be specified in the 
DCB parameter, when the SYSOUT data set (1) 
is written on 7-track tape and (2) is conm- 
posed of variable-length records or con- 
tains binary information. 


DCB PARAMETER 


For load module execution, the FORTRAN 
programmer may specify record formats and 


record lengths for sequentially organized 
data sets that reside on magnetic tape or 
direct access volumes. The DCB information 
is placed in the labels for these data 
sets. 


dsname 
DCB= (| *. ddname 
*, stepname. ddname 
*, stepname. procstep. ddname 


(,DEN={0]1]2[33]{, TRICH={CJE|T|ET?}] 
(, BUFNO= {1| 23] [, OPTCD=C) 


{F|U} (A|M] (7) (, BLKSI ZE=xxxx] ( 
» RECFM= JFB{A|M] (T], LRECL=xxxx, BLKSIZE=xxxx,\ |) 
V(IS] [B) (A[M) (T] , LRECL=xxxx, 
BLKSIZE=xxxx 


, BLKSIZE=xxxx. 


REFERRING TO PREVIOUSLY SPECIFIED DCB 
INFORMATION 


The first subparameter 


dsname 

*, ddname 

*,stepname. ddname 
*.stepname. procstep. ddname 


is used to copy DCB information from the | 
data set label of a cataloged data set or | 
from a preceding DD statement. The copied 
information is used for processing the data 
set defined by the DD statement in which 
the subparameter appears. Any subparame-. 
ters that follow this subparameter override 
any copied DCB SUPP CEASE ers 


dsname 
indicates that the DCB subparameters 
of a cataloged data set “dsname" are 
copied... The data set indicated by 
“dsname™ must be currently mounted and 
it must reside on a direct access 
volume. 


*. ddname 
indicates that the DCB subparameters 
in a preceding DD statement “ddname" 
in the current job step are copied. 


*.stepname. ddname 
indicates that the DCB subparameters 
in a DD statement “ddname" that occurs 
in a previous job step “stepname" in 
the current job are copied. 


*.stepname. procstep. ddname 
indicates that the DCB subparameters 
in the DD statement “ddname" are 
copied from a previous step “procstep" 
in a cataloged procedure. The proce- 


DENSITY: 


dure was invoked by the EXEC statement 
“stepname™ in the current job. 


DENSITY AND CONVERSION 


The second subparameter indicates the 
density and conversion for data sets resid- 
ing on magnetic tape volumes. 


Density is specified for data 
sets residing on any magnetic tape volume. 


DEN={0]1|2|3} 
indicates the density used to write a 
data set (see Table 14). 


Table 14. DEN Values 

{ | Tape Recacaing Density (bits/inch) | 
| DEN }----~------------~----------------- { 
[Value | Model 2400 | 
| -}-----~+-----------4----- Ae Se en EN Se RN aR SR I ear 
| | 7-Track | 9-Track | 
f-----}-------—-------— 4----------------- : 
| 0 |]. 200. | - | 
| 1 | 556 | . | 
fo 22s). 800 | 800 | 
1 3 -4- - | 1600 | 
| ances Uennve neo nt a i aca i a ete es J 


If DEN is not specified, 800 bits per inch 
is assumed. 


CONVERSION: Conversion is used only for 
data sets residing on 7-track tape volumes. 


TRICH={CJE|T|ET? | 
indicates which conversion. type is 


used: 
Cc - data conversion feature is 
used 
E - even parity is used 
T - translation from BCD to EBCDIC 
is required 
ET - even parity is used and trans- 


lation from BCD to EBCDIC is. 
required. 


NUMBER OF BUFFERS FOR SEQUENTIAL DATA SETS 
The number of buffers required to read 
or write any data set is specified by 
BUFNO=x  t™*” 


where x=1 or 2 
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CHAINED SCHEDULING 


Chained scheduling may be requested by 
specifying OPTCD=C as a DCB subparameter in 
the DD statement. Although chained sched- 
uling is not used for direct-access I/0 
itself, it does produce faster formatting 
of direct-access data sets. Note that when 
chained: scheduling is specified, the system 
makes use of about 2K additional bytes of 
main storage to provide the feature. 


RECORD FORMAT 


Formatted Control Unformatted Control 





RECFM=V(BJ[A|MI]({(T]{s 


frecrw=vtel (Tl {s] 
RECFM=F(BILA|MJ{(TI{sS 


RECFM=VS(B] (A{MI(T] 
] 
} 


The characters U, V, F, By, and S 
represent 
U - undefined records (records that do 


not conform to either the fixed- 
length or variable-length format) 
variable-length records (records 
whose length can vary throughout the 
data set) 

fixed-length records (records whose 
length is constant belt tala the 
data set) 
blocked records Ee 
for fixed-length records, the 
records are written as standard 
blocks, i.e., no truncated blocks or 
unfilled tracks within the data set, 


with the exception of the aakied block 


or track. 
for variable-length peceras; a 
record may span more than one block. 


The character A indicates the use of the 
extended American National Standard car- 
riage control characters (see Appendix E); 
the character M indicates the use of 
machine code control characters. 


Note: If A is not specified (or assumed), 
a carriage control character is treated as 
data and written. Single spacing is 
provided. 


The character T specifies the use of the 
track overflow feature. Use of this fea- 
ture results in more efficient utilization 
of track capacity and allows records to be 
written when the specified block size 
exceeds track size. RECFM subparameter 
specifications, and the type of processing 
each is associated with, follow: 


RECFM=UT 
Formatted Sequential I/0 > 
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RECFM=VT — 
Formatted Sequential I/0 


RECFM=VST 
Unformatted Sequential I/0 


RECFM=FT 
Direct Access I/O or Formatted Sequen- 
tial I/0 


Note that backspacing is not allowed when 
track overflow is specified. Therefore, a 
FORTRAN program using the track overflow 
feature may not contain the BACKSPACE 
statement. 


RECORD LENGTH, 
LENGTH 


BUFFER LENGTH, AND BLOCK 


For blocked records used by the compiler 
or linkage editor, the length of a block is 
specified by the buffer length which is 
specified by 


BLKSIZE=xxxx 


where xxxx is a pote of the ‘eo 
length. 


The record length (LRECL) is permanently 
specified by the oe or linkage 
cha 


The SYSPRINT data set of the (G) 
compiler has a record length of 120 bytes 
(including the carriage control byte); the 


SYSPRINT data set of the (H) Compiler has a 


record length of 137 bytes. The SYSIN, 
SYSPUNCH, and SYSLIN data sets have a 
record length of 80 bytes. 


For unblocked records used by the com- 
piler or linkage editor, the programmer 
should set BLKSIZE equal to record length 
except for the FORTRAN IV (H) SYSPRINT data 
set, which has a record length of 141 
bytes. 


For unblocked fixed-length records or 
undefined records used during load module 
execution, the record length and the buffer 
length are specified by 

BLKESIZE=Xxxx 


For unblocked variable-length records, 
the record length is specified by 


LRECL*xxxx 
buffer length is specified by 


BLKSIZE=xxxx 


Table 15. Specifications Made by the FORTRAN Programmer for Record Types and Blocking 
Ean ee ee eee ee eee ng oh ee Nor eee teal 
|Blocked or| | RECFM | | | 
| Step {Unblocked | Record Type | Specification | Record Length | Buffer Length | 
{Compiler or]|Unblocked |Fixed-Length jmot specified |not specifieds | BLKSIZE=recora { 
| Linkage | | | Jlength | 
| Editor —--~—-~ ~~} ---- fn ff nn fe 
{ {Blocked | Fixed-Length {not specified1 [not specified? |BLKSIZE=xxxx | 
|----------- }----------}----------------}--------------- +--------------- }-------------- -4 
| | | Fixed-Length | RECFM=F2 | BLKSIZE=xxxx2 | | 
| ERUEEIESTEE panertaruepee-pemaneuas popes: toeeeeememe { | 
| {Unblocked |Variable-Length |RECFM=V | LRECL=xxxx | | 
| [0 freee nnn nnn--=---4--~------------ 4--------~------ { | 
| | |Variable-~Length |RECFM=VS | LRECL=xxxx | | 
. | Spanned | | L ! 
{Load Module | Undefined | RECFM=U | BLKSI ZE=xxxx | BLKSIZE=xxxx | 
JExecution }---------- $a nnn nnn +--------~-----— | 
| | | Fixed-Length | RECFM=FB | | | 
fo pe eee ef + 4 LRECL=xxxx | | 
{ | Blocked |Variable-Length |RECFM | { | 
| Po Pepe a nen =-===-f--~----==------ | | 
| | Variable-Length |RECFM=VSB | | | 
| | | Spanned | | | 
| | Saag aS 92> PNP NP RR denen encinrercnend 
| | | Undefined |Blocked undefined records are not permitted | 
bec Ot esatat ga cae I a ret sa le 6 Sep tr A ne ee OPED a--~-~-~---- +--+ -- +--+ 4 
|*+Permanently specified by the compiler and cannot be altered (see “DCB Assumptions | 
| for Load Module Execution"). — | 
|#Not specified for direct-access data sets. | 
Cee a el a et a a a a a NES a a sc ae a acs J 


For blocked variable-length or fixed-. 
length records used by load modules, the 
record length is specified by 


LRECL= xxxx 


block length and buffer length are speci- 
fied by 


BLKSIZE=xxxx 
Undefined records cannot be blocked. 


Table 15 is a summary of the specifica- 
tions made by the programmer for record 
types and blocking in FORTRAN processing. 


FORTRAN Records and Logical Records 


In FORTRAN, records for sequential data 
sets are defined by specifications in FOR- 
MAT statements and by READ/WRITE lists. A 
record defined by a specification in a FOR- 
MAT statement is a FORTRAN record (see the 
FORTRAN IV Language publication, Order No. 
GC28-6515). A record defined by a READ/ 
WRITE list is a logical record. Within 
each category, there are three types of 
records: fixed-length, variable-length, 
and undefined. In addition, fixed-length 
and variable-length records can be blocked. 





For unformatted READ and WRITE state- 
ments the logical record, as defined by the 
I/O list, is placed into physical records 
and, if required, the logical record is 
spanned over physical records. When span- 
ning occurs, FORTRAN library routines do 
not split-write an item over the span even 
though there is enough room in the buffer 
to accomodate part of the item. However, 
FORTRAN does provide the ability to read 
items split across segments. 


FORMAT CONTROL 


The following discussion provides infor- 
mation on records written under control of 
a FORMAT statement. 


UNBLOCKED RECORDS: For fixed-length and 
undefined records, the record length and. 
buffer length are specified in the BLKSIZE 
subparameter. For variable-length records, 
the record length is specified in the LRECL 
subparameter; the buffer length in the 
BLKSIZE subparameter. The information. 
coded in a FORMAT statement indicates the 
FORTRAN record length: (in. bytes). 


Fixed-Length Recavdes: For unblocked. fixed- 
length records written under FORMAT con- 
trol, the FORTRAN record length must not 
exceed BLKSIZE (see Figure 32)... 
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Example: Assume BLKSIZE=44 


10 FORMAT(F10.5,16, 2F12.5,* SUMS") 
WRITE(20, 10) AB, NA, AC, AD 


BERSIZE : eS me ee 7 


f- — — — — — — FORTRAN Record — — — — — — — 4+ 
! ] 


44 Bytes of Data | 


FORTRAN Record (FORMAT Control) 
Fixed-Length Specification 


Figure 32. 


If the FORTRAN record length is less 
than BLKSIZE, the record is padded with 
blanks to fill the remainder of the buffer 
(see Figure 33). The entire buffer is 
written. 


Example: Assume BLKSIZE=56 


5 FORMAT(F10.5,16,F12.5," TOTAL } 


WRITE (15, 5) BC, NB, BD 
~ = LKSIZE ; 4 
L Se Se ee = on Ss Written Record 2 a — mans | 
[+ — — FORTRAN Record - — —4 sig | 


33 Bytes of Data 23 Bytes of Blanks 


Figure 33. FORTRAN Record (FORMAT Control) 
Fixed-Length Specification and 
FORTRAN Record Length Less Than 
BLKSIZE 


Variable-Length Records: For unblocked 
variable-length records written under FOR- 
MAT control, LRECL is specified as four 
greater than the maximum FORTRAN record 
length; and BLKSIZE as four greater than 
LRECL. These extra eight bytes are 
required for the 4-byte block descriptor 
word (BDW) and the 4-byte segment descrip- 
tor word (SDW), as shown in Figure 34. The 
BDW (see Figure 39) contains the length of 
the block; the SDW (see Figure 40) contains 
the length of the record segment, i.e., the 
data length plus four bytes for the SDW. — 
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poy 


Figure 34. FORTRAN Record (FORMAT Control) 
. Variable-Length Specification 


Lie peste Seeaiomn iiy 


If the data length is less’ than 
(LRECL-4), the unused portion of the buffer 
is not written (see Figure 35). 


fo Sar SS a eS BLKSIZE — — — —— —--~-—-—- - = ; 
‘as Written Record — — — — — 7 
SSS a a eee LRECL i beg ata aca aca 
| 
| | 
{ | 


| 
r——— FORTRAN Record — ~ —— 
\ 


FORTRAN Record (FORMAT Control) 
With Variable-Length 
Specification and the FORTRAN 
Record Length Less Than 
(LRECL-4) 


Figure 35. 


Undefined Records: For undefined records 
written under FORMAT control, BLKSIZE is 
specified as the maximum FORTRAN record — 
length. If the FORTRAN record length is 
less than BLKSIZE, the unused portion of 
the buffer is not written (see Figure 36). 


(ea eS KSI Se ee = 


| 
| 
f-—- —— — FORTRAN Record — —— — 4 | 
i | 

| | | 


ha aiheepee hs { 
ae oe rn eet J 


Figure 36. FORTRAN Record (FORMAT Control) 
With Undefined Specification 
and the FORTRAN Record Length 
Less Than BLKSIZE 


BLOCKED RECORDS: For all blocked records, 
the record length is specified in the LRECL 
subparameter; the block length and buffer 
length in the BLKSIZE subparameter. 


Fixed-Length Records: For blocked fixed- 
length records written under FORMAT con- 
trol, LRECL is specified as maximum poss- 
ible FORTRAN record length, and BLKSIZE 
must be an integral multiple of LRECL. If 
the FORTRAN record length is less than — 
LRECL, the rightmost portion of the record 
is padded with blanks (see Figure 37). 


Example: Assume BLKSIZE=48 and LRECL=24 
10 FORMAT(I2,F4.1,F8.4,F10.5) 
20 FORMAT(I3, F9. 4) 


WRITE(13,10)N,B,Q,S 


WRITE(13, 20)K,2Z 
's Se ee SLKSIZE SS SSS Ss SS eee ‘| 
iz 
= —sa oro Written Block — ——— — — oo | 
f- — —-——- LRECL —— — — — + LRECL - — ~— 7 
| | FORTRAN | 
f> ~ — — FORTRAN Record —~———+— Record 7} | 


| | \ 


12 12 Bytes 
Data Bytes of 
Blanks 


24 Data Bytes 





Figure 37. Fixed-Length Blocked Records 


Written Under FORMAT Control 


Variable-Length Records: For blocked 
variable-length records written under FOR- 
MAT control, LRECL is specified as four 
greater than the maximum FORTRAN record 
length, and BLKSIZE must be 4 plus an : 
integral multiple of LRECL. The four addi- 
tional bytes allocated with BLKSIZE are 
required for the block descriptor word 
(BDW) that contains the block length. The 
four additional bytes allocated with LRECL 
are used for the segment descriptor word 
(SDW) that contains the record length 
indication. 


If a WRITE is executed and the amount of 
Space remaining in the present buffer is 
less than LRECL, only the filled portion of 
this buffer is written (see Figure 38); the 
new data goes into the next buffer. Howev- 
er, if the space remaining in a buffer is 
greater than LRECL, the buffer is not writ- 
ten, but held for the next WRITE (see 
Figure 38). If another WRITE is not 
executed before the job step is terminated, 
then the filled portion of the buffer is 
written. 


If LRECL is omitted, its default value 
is set almost equal to the value of 
BLKSIZE. This results in having only one 
record written in any block. 

Example: Assume BLKSIZE=28 and LRECL=12. 
30 FORMAT(33,F5.2) 

40 FORMAT(F4.1) 

50 FORMAT(F7.3) 

WRITE(12, 30) M,Z 

WRITE(12,40)V 

WRITE (12, 50) Y 


(— — ~FORTRAN Record ~ —4 FORTRAN _ 
{ Record | 


| | 
! | | | 






7 ~~ FORTRAN Record— ~4 


j | 
| | 
pon] roasts | | 


Figure 38. Variable-Length Blocked Records 
Written Under FORMAT Control 






This. space of 13 bytes 
Ready for next WRITE. 
(space > LRECL) 


UNFORMATTED CONTROL 


Only variable-length records can be 
written without format control, i.e., the 
RECFM subparameter must be VS. (If nothing 
is specified, VS is assumed.) 


Records written with no FORMAT control 
have the following properties: 


e The length of the logical record is 
controlled by the type and number of 
variables in the input/output list of 
its associated READ or WRITE statement. 


e A logical record can be physically 
recorded on an external medium as one 
or more record segments. Not all seg- 
ments of a logical record must fit into 
the same physical record (block). 


e Two quantities control the manner in 
which records are placed on an external 
medium: the block size (as specified 
by the BLKSIZE parameter), and the log- 
ical record (as defined by the length 
of the I/O list). BLKSIZE is specified 
as part of the DCB parameter of the 
data definition (DD) statement. If not 
specified, FORTRAN provides default 
values. 


Each block begins with a 4-byte block 
descriptor word (BDW); each segment begins 
with a 4-byte segment descriptor word 
(SDW). The SDWs and BDWs are provided by 
the system. Each buffer begins with a. 
4~-byte block descriptor word (BDW). The 
SDWs and BDWs are provided by the system. 
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The format of a BDW is given in Figure 
39. 


| preck=tengty | reserved | 

Nigh itece ates at arene ee ee ee eel J 
2 bytes 2 bytes 

Figure 39. Format of a Block Descriptor 


Word (BDW) 


where: 


block-length 

is a binary count of the total number 
of bytes of information in the block. 
This includes four bytes for the BDW 
plus the sum of the segment lengths 
specified in each SDW in the block. 
(The permissible range is from 8 to 
32,760 bytes.) 


reserved 
is two bytes of zeros reserved for 
system use. 


The format of an SDW is given in Figure 


40. 

Sa a ee ee 1 
| segment-length { © code ireserved | 
a em mI AR cee Re Rl, SY SN EE ER NE Si AO i oa a oe ca ev ee Te a em em me me 4 

2 bytes 1 byte 1 byte 
Figure 40. Format of a Segment Descriptor 
Word (SDW) 
where: 
segment-length — 


is a binary count. of the number of 
bytes in the SDW (four bytes) plus the 
number of bytes in the data portion of 
the segment following the SDW. (The 
permissible range is from 4 to 

32,756 bytes.) 


code 
indicates the position of the segment 
with respect to the other seqments (if 
any) of the record. Bits 0 through 5 
are reserved for system use and are 


set to 0. Bits 6 and 7 contain the 
codes: 
Code Meaning 
00 This segment is not followed or 


preceded by another segment of 
the record. 


O01 This segment is the first of a 
. multisegment record. 
10 . This segment is the last of a 
eres multisegment record. 
11 This segment is neither the 


first nor last of a multi- 
segment record. 
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e Figure 40.1. 


reserved 
is a byte of zeros reserved for system 
use. 


Unblocked Records: For unblocked records, 
if the logical record length is less than 
or equal to the length of the block (allow- 
ing four bytes for the BDW and four bytes 
for the SDW), the block will contain the 
entire logical record. The remainder of 
the block is unused and is not transmitted. 
The next record is placed in the following 
block in the same manner (see Figure 40.1). 


If the logical record length is greater 
than the length of the block, the record is 
divided into record segments. The number 
of segments is determined from the READ/ 
WRITE statement and the BLKSIZE 
specification. Again, only the filled por- 
tion of the block is transmitted and the 
next record is placed in the following 
block (see Figure 40.2). 


Example: Assume BLKSIZE=40 


REAL#4 A,B,C,D,E,F,G,H 
WRITE(9) A,B,C,D 
ie 


. WRITE(9) E,F,G,H 


| 
! poe Record ey 
{ | { 










A cme eae 
16 Bytes Not Written 
Sei Soca eee Soe as a 
. (oe ta 
: ot 
: ptith dee os te cane Ske oe + 
16-Bytes Not Written 
as faces cette dete Sale ae ck 


Unblocked Records Written 
Without FORMAT Control | 








Example: Assume BLKSIZE=32 
REAL*8 A,B,C,D,E,F,G,H 


WRITE(9) A,B,C,D 


WRITE(9) E,F,G,H 





__ __ Record } 
[ Segment 2 


etaes: 
i 





24 Data Bytes 


Unblocked Segmented Records 
Written Without FORMAT 
control 


Figure 40.2. 


Blocked Records: For blocked records, if 
the logical record length is less than or 
equal to the length of the block (allowing 
four bytes for the BDW and four bytes for 
the SDW), the block will contain the entire 
logical record. The next record, preceded 
by its SDW, begins in the same block (see 
Figure 40.3). 


If the logical record is greater than 
the length of the block, the record is 
divided into record segments. The number 
of segments is determined from the READ/ 
WRITE statement and the BLKSIZE 
specification. The next record, preceded 
by its SDW, begins in the same block. If 
the length of the second record exceeds the 
remainder of the block it too is segmented 
(see Figure 40.4). 








Example: 
REAL*8 A,B,C,D 


Assume BLKSIZE=44 


WRITE(9) A,B 


WRITE(9) C,D 





16 Data Bytes a 16 Data Bytes 


Blocked Records Written 


Figure 40.3. 
Without FORMAT Control 


Example: Assume BLKSIZE=32 


REAL*8 A, B,C,D,E,F,G,H 


WRITE(9) A,B,C,D 


WRITE(9) E,F,G,H 


pe — ——~ —BLKSIZE— —— —~- —-— — i 
Maat tet Ole BS ee Record ] 
| ~ Segment 1 aa 








— _Record 1. ____. __ Record 2__ 
Segment 2 7 i. Segment 1 | 
| 
Record 2 ies ag eo ee 
fey ee a a Segment 2 ~] 





Figure 40.4. 


Blocked Segmented Records 
Written Without FORMAT 
Control 
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cae een ciee arene amen arene 


Unblocked Records: For all unblocked rec- 
ords written with or without FORMAT con- 
trol, the volume is positioned so that the 
last logical record read or written is 
transmitted next. 


Blocked Records: Blocked records are back- 


spaced on a logical record basis. Thus, a 
BACKSPACE may result in a deblocking opera- 


70.2 


tion rather than making available a new 
physical record. 


Note: Logical records are usually synony- 
mous with the amount of data specified in 
the I/O list for the READ or WRITE state- 
ment that processes the record. Thus, when 
there is no FORMAT control, the logical 
record may be spanned over one or more 
physical records on the volume; however, 
FORTRAN treats only the logical record as 
an entity. For records written under 


FORMAT control, a single READ/WRITE state- 
ment may refer to or create several logical 
records. This occurs when there is a "/" 
character in the FORMAT statement or when 
the I/O list exceeds the FORMAT specifica- 
tions, causing the FORMAT statement to be 
used again from the first parenthesis. 


Extending a Data Set: The execution of an 
ENDFILE followed by the execution of a BAC- 
KSPACE does not cause the FORTRAN sequence 
number to be incremented. The data set can 
be extended (written) using the same FO- 
RTRAN sequence number. 


Record Length, Buffer Length, and Number of 
Buffers for Direct Access Data Sets 


A direct-access data set can contain 
only fixed-length, unblocked records. Any 
attempt to read or write any other record 
format by specification in the DCB parame- 
ter is ignored. The record length and 
buffer length for a data set are specified 
by the programmer as the record size in the 
DEFINE FILE statement, and cannot be 
changed by specifying the BLKSIZE or LRECL 
subparameters in the DCB parameter. For 
example, the statement: 


DEFINE FILE 8(1000,152,E, INDIC) 


sets the record length and buffer length 
permanently at 152 bytes. The direct- 
access data set defined by this DEFINE FILE 
statement contains 1000 fixed-length, 
unblocked records; each record is 152 bytes 
long and is written under FORMAT control. 


The programmer may specify the number of 
buffers for a direct-access data set as 
follows: 


BUFPNO=x 


x is the number (1 or 2) of buffers 
used to read or write the data set. 


where: 


For records written with FORMAT control, 
the record format is the same as for fixed- 
length unblocked records written with FOR- 
MAT control for sequential data sets. For 
records written with no FORMAT control, the 
records must be fixed-length and unblocked. 
These records do not contain a block con- 
trol word or a segment control word. 


Spanning Considerations 


For records written with no FORMAT con- 
trol, the input/output list may exceed the 
logical record length (i.e., block size). 
In this case a new block is started on out- 
put, and the next block is processed on 
input. If it is shorter than the record 


length, the remaining portion of the record 
is padded with zeros (see Figure 41). 


The DEFINE FILE field r (r=152 in the 
example shown above) specifies the maximum 
size of each record in a data set. It is 
only when this size is exceeded ry one I/O 
list that spanning occurs. 


Note that the spanning feature is an 
extension to FORTRAN language specifica- 
tions in that it is applicable only for 
programs written in FORTRAN under the 
System/360 Operating System. 


When spanning occurs, the FORTRAN 
library routines do not split an item over 
the span even if there is enough room in 
the buffer to accommodate part of the item. 
The same considerations apply to reading. 


Example: A DEFINE FILE statement has spec- 
ified the record length for a direct~access 
data set as 20. This statement is then 
executed: 


WRITE (9* IX) DP1, DP2,R1, R2 


DP1 and DP2 are real *8 variables. 
R1 and R2 are real *4 variables. 

IX is an integer variable that con- 
‘tains the record position, | 


where: 


BACKSPACE, END FILE, and REWIND opera- 
tions are ignored for direct access data 
sets. 


= — w—— Record Length. 10) me ee = 


- eee — Record Segment Pm me mee —| 


1 I 
20 Data Bytes 


Record Segment + Record Segment 4 = | Logical Record 


7d 


pS. Ss —— —=- Record Segment gam = 
I 1 


4 Data Bytes 16 Bytes of Zeros 


Logical Record (No FORMAT Con- 
trol) for Direct Access 
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DCB ASSUMPTIONS FOR LOAD MODULE EXECUTION 


For compilation, the LRECL value for the 
following data sets is fixed and cannot be 
altered by the programmer: 


Data Set LRECL Value 
SYSPRINT 120(G), 137(H) 
‘SYSIN 80 

SYSPUNCH 80 

SYSLIN 80 


The SYSPRINT, SYSIN, and SYSPUNCH com- 
piler data sets can contain blocked rec- 
ords. If the higher level linkage editor 
(program name: IEWLE4S40O) is used, the SYS- 
LIN data set can contain blocked records. 


The BLKSIZE value must be an integral 
multiple of the corresponding LRECL value 
shown above. The maximum BLKSIZE value is 
limited only by the type of input/output 
device (see Table 16), except that for SYS- 
LIN the maximum BLKSIZE value is 400 with 
linkage editor IEWLE440. 


For load module execution, specifica- 
tions depend on record type. For F type 
records, the BLKSIZE value must be an 
integral multiple of the LRECL value; for V 
type records, BLKSIZE must be specified as 
4 +n x LRECL (where n is the number of 
records. in the block); for U type records, 
no blocking is permitted. Note, too, that 
the BLKSIZE and LRECL range is limited only 
by the type of device used to directly 
write the data set. Load module DCB param- 
eter default values are shown in Table 17. 


Table 16. BLKSIZE Ranges: Device Considerations 
ee Sere Pi ee ee Ce Pee ae ee Ne Te a aE ee eRe eee spre er Seen ee Ee ee ee a ae ee en a ae Sal a ee earn ae Se ee a ee a 
| | BLKSIZE Ranges | 
| a cae ae a Ao aeee eae Gee eames Se enn ee ee et ee tee Yor ro nr ee 
| Device Type | F and U Record Type | V Record Type | 
|~----------------—--}----------------------------------}----------------------------- : 
| Card Reader | 1<x<80 | 9<x<80 | 
ES A OD NE SY SERN AR NO SE EE TNS ca NS eS TY Oe Se ek A GE ALY AOR NEG NS NY ND EO EES IS EY SNP Deer AEP EP AE PLO IONS SE ES OTE ES SED EN ~-+ EE TO OE ST eS Ate eS GT EE ES SD PODS ee che ee ae i Sm Be ae Ye EE tee ee ee oe 4 
| Card Punch | i<x<81 | 9<x<89 | 
}--------------—----} --------------------------------}----------------------------- | 
| Printer: | | A 
| 120 Spaces | 1<x<121 | 9<x<129 | 
| -.132 Spaces | 1<x<133 | 9<xs141 | 
| 144 Spaces | 1<x<145 | 9<x<153 | 
}~-----------—------ —---------------—-------—------- 1 ------------------- == 
| Magnetic Tape | _.18<sx<32, 760 cg | 
}---~-----~------ wn f a a nr ee ee ne eee ere 
| Direct Access: | Without Track Overflow+ | With Track Overflow1 | 
| }--------------- —+----------—----— {------------------------------- { 
| 2301 | 1<x<20,483 | 1<x<32, 760. | 
| 2302 | 1<x<4984 | 1<x<32,760 { 
| 2303 | 1<x<4892 | 1<x<32, 760 | 
| 2311 { 1<x<3625 | 1<x<32,760 . | 
| 2314 | 1<x<7294 | 1<x<32, 760 | 
i es tes ss eis a ho Sn wr i emis es ar 5 cs eS es me es nes i i i sr" st in Sa is ce stems sn ni --i---~--~-~---~-----~-—--------~------=4 
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Table 17. Load Module DCB Parameter Default Values 


See ee ee Borer a ee ee ee ee ee 1 

| Sequential Data Sets | Direct-Access Data Sets | 
(ranee noon yoo | aa spe {--—--———=- Tone nnnnnn 1 
| Data Set | | Default | Default | Default | Default LRECL | 
| Reference Number | ddname {| BLKSIZE2 | RECFM? | RECEM | or BLKSIZE | 
~~-~---------~-----}------------ +----~------ +--------+-- $----------- }------------------ { 
| 1 | Fr01Fyyy | 800 | U | F | | 
|-----~---~--------- +------------ $----------- 4----------- 4-----4-++--4 : | 
| 2 | FTO2Fyyy | 800 | U | F | The value spec-| 
}—----------------- 4------------ t----------- 4----------- 4----------- fees ie ers TY 
| ae | FTO3Fyyy | 800 | U | FA? | ified as the | 
p—-~-- nd see aT = {--~-------- : ea ciee, 
| 4 {| FTO4Fyyy | 800 | U | F | maximum size of | 
}—------------------ +------------ {--------+--4----------- {----------- { | 
| 5 | FTO5SFyyy | 80 | F | F | a record in the| 
fm nnn {------------ | aa fone fete 4 BEER] 
| 6 | FTO6Fyyy | 133 | UA | F | DEFINE FILE | 
}—-—------——------—- +------------ | aa pi fh 1 ve | 
{ 7 | FTO7Fyyy | 80 | F | F | statement. | 
f—-+----—---—-+-—-- $---------+-- fossa nf ni 4----------- : ae | 
i 8 | FToeryyy | 800 | u | F | | 
| : | : | : | : | : I | 
| : | : | : | ° | : | 
| : | : | : | ° | : | | 
| 99 | Fro9Fyyy | 800 | U | F | | 
p—------~—---~~--- -- 1 Le 1  --- - 4 


{2If the records have no FORMAT control, the default LRECL is 4 less than BLKSIZE, where 
the default BLKSIZE is as specified 


in this table. 


For direct-access 


i 
| blocksize is usually limited by track capacity, unless track overflow has been 


| specified. 


j#If the records have no FORMAT control, the default RECFM is VS (F if it is direct 


| access). 


ieee first character in the record is for carriage control. 
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data sets, 


73 


2 ae ee oe ee 


r | 
|G ONLY] CATALOGED PROCEDURES 
Lt 


For ease of reference this section, 
directed solely to the user of the FORTRAN 
Iv (G) compiler, has been written as a 
self-contained, independent unit. For 
information on FORTRAN IV (H) cataloged 
procedures, see “FORTRAN IV (H) Cataloged 
Procedures." 


This section contains figures illustrat- 
ing the job control statements used in the 
FORTRAN IV (G) cataloged procedures and a 
brief description of each procedure. The 
statements used to override the statements 
and parameters in any cataloged procedure 
are also discussed in this section. (The 
use of cataloged procedures is described in 
“FORTRAN Job Processing. "™) 


compile 


In each of the four cataloged procedures © 


that include the compile step (Figures 42, 
43, 45, and. 46), the EXEC statement named 
FORT designates that the operating system 
is to execute the program IEYFORT (the 
FORTRAN IV (G) compiler). 


The REGION parameter is ignored by 
sequential schedulers. For priority 
schedulers, it specifies a region size 
sufficient to compile approximately 400 
statements. 


MVT priority schedulers require that 
region size be specified, unless the user 
is willing to accept the default region 
size (as established in the input reader 
procedure). 


The size of the region is directly 
related to the maximum number of source 
statements that can be compiled by the 
FORTRAN (G) compiler. A region size of 
100K is estimated to be sufficient to com- 
pile approximately 400 statements assuming 
unblocked input and output and non-resident 
access methods. To adjust this region size 
for smaller or larger source programs, use 
75 bytes per statement as a rule of thumb. 


Note: If different region sizes are to be 
specified for each step in the job, the 
REGION parameter should be coded in the 
EXEC statement associated with each step 
instead of in the JOB statement. 
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allocation of 100 records. 


The compiler options (shown in Figure 
24) are not supplied with any procedure 
containing a compile step. Therefore, if 
the user wishes to have certain operations 
performed, he must specify those options in 
the job control statements. However, if : 
the user does not specify any of the 
options, the system will assume certain 
default options which are noted by the 
underscores in Figure 24. 


The control statements contained in the 
procedure, FORTGC (shown in Figure 42), 
designate the data sets to be used by the 
compiler during its operation. The source 
listing, compile-time information, and 
error messages are written on the data set 
designated by the SYSPRINT DD statement. 
The object module resulting from the opera- 
tion of the FORTRAN compiler is written in 
the temporary data set &LOADSET, designated 
in the SYSLIN DD statement. This data set 
is sequential and is assigned to a sequen- 
tial device such as a tape or direct-access 
device. However, if the direct-access | 
device is assigned, a primary allocation of 
200 records is requested with a secondary 
Average record 
length is specified as 80 bytes. The data 
set is in PASS status, and records can be 
added to the data set. The SYSPUNCH DD 
statement defines the card punch to be used 
in obtaining an object deck. 


The SYSOUT=B parameter on the SYSPUNCH 
DD statement is interpreted by sequential 
schedulers as indicating the system card 
punch unit. The priority scheduler will 
route the output to output class B. 


The programmer can override any of the 
default options by using an EXEC statement 
which includes the options that are 
desired. 


Compile and Linkage Edit 


The cataloged procedure to compile the 
source module and linkage edit the result- 
ing FORTRAN object module (FORTGCL) is 
shown in Figure 43. The control statements 
for compilation are the same as described 
above. However, output of the object 
module is defined by the SYSLIN DD 
statement. 


Sample Coding Form 











ET a ee Ss ee Me oe ee a 51-60 61-70 | 71-80 
| T2[3/415|6]7]e/9]ol 2|sl4[sl6[718|slof1 [2[3]4{5|6]718!siol i213 ]415j6]7|sisiol j2/314}s]6]7 {s[siol |2]314|slel7isisjol  [2) 3/4]5[6]7}8]9]o] 1 [2]314|5|6]7]8]9]o} 


LIF OR EKEC VGEM=-LEYVF ORT, REC TON =/1,6.¢ 

11 SNSIP Ri DJ SY SOUT <0 

LUSN SIP UN DD, . SSN SOUT = 8 aig {i a, 

{ LZ D DSNAMEs F LOAD SET) DSP CN OD! PA UN I[T.=,5,¥,9/5,9, re we 
SPACE =.C3,.HiG2de .¢,'), 216 E.)j9 D¢G.2/BLKSTIZ6 +, 39 144 rare 

Figure 42. Compile Cataloged Procedure (FORTGC) 


In each of the cataloged procedures that 
include a linkage edit step (Figures 43, 
44, and 45), the EXEC statement named LKED 
specifies that the operating system is to 
execute the program IEWL (the linkage edi- 
tor). However, the linkage editor step (or 
the remainder of the procedure) is not 
executed if a condition code greater than 4 
was generated during the operation of the 
compile step in the same procedure. 


Execution of the linkage editor step 
produces a list of the linkage editor con- 
trol statements (in card image format), a 
map or cross-reference listing of the load 
module, and a list of linkage editor diag- 
nostic messages on the data set specified 
by the SYSPRINT DD statement. The load 
module is marked executable even though 
error conditions are found during 
processing. 


The primary input to the linkage editor 
may consist of concatenated data sets. The 
first, defined by the SYSLIN DD statement, 
is the output of the compiler; the second . 
(may be omitted) is the data set defined by 
a LKED.SYSIN DD statement which is speci- 
fied by the user and is external to the 
procedure. 


External references made in a FORTRAN 
object module are resolved by the linkage 
editor. Some or all of these references 
can be resolved from the FORTRAN library 
(SYS1.FORTLIB) designated in the SYSLIB DD 
statement. 


During processing, the linkage editor 
requires a work data set which is defined 
by the SYSUT1 DD statement. This data set 
is assigned to a direct-access device with 
primary allocation of 20 records and secon- 
dary allocation of ten records. The load 
module produced by the linkage editor is 
written in the temporary PDS defined in the 
SYSLMOD DD statement. The data set is in 
the PASS status. 


Linkage Edit and Execute 


This cataloged procedure, FORTGLG, first 
linkage edits the FORTRAN object module and 
then executes the resulting load module. 
(The FORTGLG procedure is shown in Figure 
44.) Since the linkage edit step is the 
first step in the procedure, the primary 
input is the data set defined by the LKED. 
SYSIN DD statement. 


The execute step is included in two 
cataloged procedures (see Figures 44 and 
45). In each of these procedures the 
execute step is invoked by the EXEC state- 
ment named GO. However, this step is 
bypassed if a condition code greater than 4 
was generated during the operation of the 
linkage edit step in this procedure. 


Input to the execute step is defined by 
a GO.SYSIN DD statement which is supplied 
by the user and is external to the proce- 
dure. The data set is read using data set 
reference number 5. In the linkage edit 
step, execution-time error messages are 
written in the data set defined by the SYS- 
PRINT DD statement. In the execute step, 
error messages and information for trace- 
back, DUMPs, and PDUMPs are written on the 
data set associated with the reference num- 
ber 6. (Output from the load module can 
also be written in the same data set.) The 
card punch is associated with data set 
reference number 7. 


In a multiprogramming environment with 
an MVT priority scheduler, main storage 
requirements for the execute step are 
determined by a number of factors. These 
include: the size of the object program 
produced by the compiler, the requirements 
of the data access method used, the block- 
ing factors, the number and sizes of the 
data sets used, the number and sizes of 
library subprograms invoked, and the sizes 
of the execution time routines required by 
the program. If the default region size 
(established in the cataloged procedure for 
the input reader) is not large enough for 
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Sample Coding Form 








i=10 N=20 ee Se (oct 51-60 61-70 
(i [2[3[4[5 lel? {s{9lol i [2[3l4[s{el7lel9/ol! lelsiaisiel7is[siol i [2[3[4[slel7isisloli [2i3l4[sle[7[elslol [2[314[s]el7[s[9lo} i l2[3l4[Siel7isislol [2[3l4is{6|7[s8[9lo} 


EXEC PGM=ITEYFORT, REGION=100K 
//SYSPRINT, DD SYSOUT=A 
//SYSPUNCH DD SYSOUT=B 
/ISYSLIN | DD | DSNAME=¢LOADSET,DISP=( MOD, PASS), UNIT=SYSSQ, 
// SPACE =(8¢, (299,100), RLSE),, DCB=BLKS! ZE=8¢ 
//LKED EXEC PGM*IEWL,REGION<96K,PARM=CXREF LET, LIST), COND=(4, LT, FORT) 
//SYSLIB | DD OSNAME=SYSi FORTLIB,DISP=SHR | 


// 





7 | DDNAME=SYSIN. 4 


Figure 43. Compile and Linkage Edit Cataloged Procedure (FORTGCL) 





Sample Coding Form 





SRR (eee Re (eer ae a 31-40 41-50 ! 
ieTs14[5|6]71819[0| | f2131415]6] 7161910] 11213141s[6[718[slol 21314 1[5le[7lslslol Te[314) 3 4|5]6]716]916} 1J213141516]7 181910 


//LKED EXEC PGM= IEWL, REG! ON=96K, PARM=CXREF, LET, LIST) 
//SYSLiB DD DSNAME=SYS4.FO | 





//SYSPRINT, DD SYSOUT=A 


DD DSNAMESSYSUT1, UNIT 


//SYSLIN | DD  DDNAME=SYSIN iets a ca : 


//GO | EXEC PGM=%.LKED.SYSLMOD, COND=C4, LT, LKED), 
//FTO5FOO1, DD DDNAME=SYSIN os 2 





Figure 44. Linkage Edit and Execute Cataloged Procedure (FORTGLG) 
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the program, REGION.GO must be used to spe- 
cify the region size for the execute step. 


A listing of the execution time routines 
required for various input/output, inter- 
ruption, and error procedures is contained 
in the FORTRAN IV Library Subprograms 
publication, Order No. GC28-6818. That 
publication also lists the sizes of both 
the execution-time routines and the 
mathematical subprograms. 


An example of using a REGION.GO 
specification to indicate the main storage 
requirements for the execute step of a 
FORTRAN program follows. 


//EXAMPLE1 JOB ACCOUNT1, ‘JOHNSMITH', eee 4 
“f MSGLEVEL=1 
4/ EXEC FORTGCLG, PARM. FORT=DECK, x 


REGION. GO=84K 


//FORT.SYSIN DD * 


FORTRAN SOURCE SYMBOLIC DECKS 


/* 


//LKED.SYSIN DD * 


PREVIOUSLY COMPILED OR ASSEMBLED 
OBJECT DECKS 


/* 


//GOeSYSIN DD * 


INPUT DATA 


/* 


Compile, Linkage Edit, and Execute 


The cataloged procedure (FORTGCLG) to 
compile, linkage edit, and execute FORTRAN 
source modules is shown in Figure 45. This 
cataloged procedure consists of the state- 
ments in the FORTGC and FORTGLG procedures, 
with the following exception: the SYSLIN 
DD statement defines the output of the com- 
piler, and the same statement in the 
linkage edit step identifies this phe aay as 
the primary input. 


The programmer does not have to define 
the linkage editor input as was required 
for the FORTGLG procedure, but the input 
data set must be defined for the compiler 
so that the source module can be read. A 
data set containing primary input to the 
linkage editor may also be defined by using 
a LKED.SYSIN DD statement. This data set 
is concatenated with the data set contain- 
ing the output of the compiler. 


Compile and Load 


The cataloged procedure (FORTGCLD) to 
compile and load FORTRAN source modules is 
shown in Figure 46. The control statements 
used in the compiler step are the same as 
those used in the cataloged procedure 
FORTGC (Figure 42). 


The load step is invoked by the EXEC 
statement GO. This statement specifies 
that the loader (program name LOADER) is to 
be executed. The EXEC statement also 
specifies that a storage map and any diag- 
nostic messages produced in the load step 
are to be placed in the data set specified 
in the SYSLOUT DD statement. 


The load step will not be executed if a 
condition code greater than 4 was generated 
during the compile step. 


Primary input to the load step is 
defined in the SYSLIN DD statement. This 
is the output data set produced by the com- 
piler. Additional input may be defined by 


a GO.SYSIN DD statement which is supplied 


by the user and is external to the proce- 
dure. This data set is concatenated with 
the primary input data set. 


Any external references made in the load 
step are resolved by the loader. Some or 
all of these references can be resolved 
from the FORTRAN library (SYS1.FORTLIB) 


designated in the SYSLIB DD statement. 


Private libraries may be concatenated with 
the FORTRAN library to help resolve extern- 
al references. Figure 29 shows how this 
may be done. 


USER AND MODIFIED CATALOGED PROCEDURES 


The programmer can write his own cata- 


~ loged procedures and tailor them to the 


facilities in his installation. He can 
also permanently modify the IBM-supplied 
cataloged procedures. For information 
about permanently modifying cataloged pro- 
cedures, see the Job Control Lanquage 


~ publication. | 
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The IBM-supplied cataloged procedures 
for FORTRAN IV (G) define logical unit 05 
as SYSIN, 06 as SYSOUT, and 07 as SYSCP 
(see Figures 44, 45, and 46). If, during 
system generation, values other than 05 for 
the ONLNRD parameter, 06 for the OBJERR 
parameter, and 07 for the ONLNPCH parameter 
were specified in the FORTLIB macro 
instruction, one or more of the following 
DD cards must be added to the cataloged 
procedures, either to override them at 
execution time or to modify them permanent- 
ly. (The System Generation publication, 
Order No. GC28-6554, describes the FORTLIB 
macro instruction.) 


If a //GO.SYSIN DD * statement is used 
to define the input data set, DCB parame- 
ters should not be specified. However, if 
the data set defined as SYSIN resides some- 
where other than on the system input 
device, the programmer should be aware that 
the default BLKSIZE is 800 and the default 
RECFM is U (see Table 17). Therefore, if 
he desires a BLKSIZE of 80 and a RECFM of 
F, he must specify them explicitly. 


e For the unit specified as ONLNRD, 
the DD card: 


use 


//GO.FTxxF001 DD DDNAME=SYSIN 


Sample Coding Form 





® For the unit Ebert bted as OBJERR, 
the DD card: — 


use 


//GO. PTXxF 001 DD SYSOUT=A 


@ For the unit specified as ONLNPCH, use 
the DD card: 


4/GO.FTxxF001 DD UNIT=SYSCP, x 
//  DCB=(BLKSIZE=80 , RECFM=F) 


where: 
xx (2 digits) is the unit 
specified 


In addition, the DD card for FT05001 
must be deleted permanently from the cata- 
loged procedure. 


OVERRIDING CATALOGED PROCEDURES 


Cataloged procedures are composed of 
EXEC and DD statements. A feature of the 
operating system is its ability to read 
control statements and modify a cataloged 
procedure for the duration of the current 
job. Overriding is only temporary; that 
is, the parameters added or modified are in 
effect only for the duration of the job. 
The following text discusses the techniques 
used to modify cataloged procedures. 
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Two forms of keyword parameters 
("keyword" and "keyword.procstep") are dis- 
cussed in “Job Control Language.“ The form 
"“keyword.procstep" is used to add or over- 
ride parameters in an EXEC statement in a 
cataloged procedure. 


The FORTRAN programmer can, for example, 
add (or override) compiler, linkage editor, 
or loader options for an execution of a 
cataloged procedure, or he can state dif- 
ferent conditions for bypassing a job step. 


Note: When the PARM parameter is overrid- 
den, all compiler, linkage editor, or load- 
er options stated in the EXEC statement in 
the procedure step are deleted and replaced 
by those in the overriding PARM parameter. 


Sample Coding Form 
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Compile and Load Cataloged Procedure (FORTGCLD) 


Example 1: Assume the cataloged procedure 
FORTGC is used to compile a program, and 
the programmer wants to specify the name of 
his program and the MAP option. The fol- 
lowing statement can be used to invoke the 
procedure and to supply the compiler 
options. 


//STEP1 EXEC FORTGC, X 
// PARM, FORT=* MAP, NAME=MYPROG* 


The PARM options apply to the procedure 
step FORT. 


Example 2: Assume the cataloged procedure 
FORTGLG is used to linkage edit and execute 
a module. Furthermore, the MAP option 
overrides XREF, LET, and LIST in the link- 
age editor step and the COND parameter is 
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changed for the execution of the load 
module. The following EXEC statement adds 
and overrides parameters in the procedure. 


7/DO EXEC FORTGLG, PARM. LKED=MAP, xX 
4/ COND. GO= (3, LT, DO. LKED) 


The PARM parameter applies to the link- 
age editor procedure step LKED, and the 
COND parameter applied to the execution 
procedure step GO. 


Example 3: Assume a source module is com- 
piled and loaded using the cataloged proce- 
dure FORTGCLD. Furthermore, an external 
name is specified as the entry point of the 
loaded program. The following EXEC state- 
ment adds and overrides parameters in the 
procedure. 


//STEP1 EXEC FORTGCLD, PARM. GO='EP=FIRST* 


Overriding and Adding DD Statements 


A DD statement with the name "stepname. 
ddname" is used to override parameters 1n 
DD statements in cataloged procedures, or 
to add DD statements to cataloged proce- 
dures. The "“stepname" identifies the step 
in the cataloged procedure. If "ddname" is 
the name of a DD statement present in the 
step, the parameters in the new DD state- 
ment. override parameters in the DD. state- 
ment in the procedure step. If “ddname™ is 
the name of a DD statement not present in 
the step, the new DD statement is added to 
the step. 


In any case, the modification is ef- 
fective only for the current execution of 
the cataloged procedure. 


When overriding, the original DD state- 
ment in the cataloged procedure is copied, 
and the parameters specified in it are 
replaced by the corresponding parameters in 
the new DD statement. Therefore, only 
parameters that must be changed are speci- 
fied in the overriding DD statement. 


If more than one DD statement is modi- 
fied, the overriding DD statements must be 
in the same order as the DD statements 
appear in the cataloged procedure. Any DD 
statements that are added to the procedure 
must follow overriding DD statements. 


When the procedures FORTGC, FORTGCL, 
FORTGCLG, and FORTGCLD are used, a DD 
statement must be added to define the SYSIN 
data set to the compile step in the proce- 
dures (see Figures 16, 22, and 23.2). When 
the procedure FORTGLG is used, a DD state- 
ment must be added to define the SYSLIN 
data set (see Figure 19). 


When the procedures FORTGCL, FORTGLG, 
and FORTGCLG are used, an overriding DD 
statement can be used to write the load 
module constructed in the linkage editor 
step in a particular PDS chosen by the pro- 
grammer, and assign that member of the PDS 
a particular name. 


During execution of procedure steps, the 
programmer can catalog data sets, assign 
names to data sets, supply DCB information 
for data sets, add data sets, or specify 
particular volumes for data sets” by using 
overriding DD statements. 


Example i: Assume the data sets identified 
by ddnames FTO4F001 and FTO8F001 are named, 
cataloged, and assigned specific volumes. 
The following DD statements are used to add 
this information and indicate the location 
of the: source module. 


4/JOB1 JOB MSGLEVEI=1 
//STEP1 EXEC FORTGCLG 
//FORT.SYSIN DD * 


| FORTRAN Source Module | 
he a ce oa ia eee aod 
/* 

//GO.FTO4FO01 DD DSNAME=MATRIX, x 
// +‘ DISP=(NEW, CATLG) , UNIT=TAPE, x 
4/ VOLUME=SER=987K 

//GO.FTO8F001 DD DSNAME=INVERT, z 
4/ DISP= (NEW, CATLG) , UNIT=TAPE, x 
4/ VOLUME=SER=10 20 

//GOQ.SYSIN DD * 
St ee ee ee 1 
| Input to Load Module | 
Des a a ac nw la J 
7* 
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Example 2: Assume DCB information is added 
to the DD statement identified by ddname 
FTO8F001 and a data set for data set 
reference number 4 is created and 
cataloged. 


//3OB2 JOB 
//STEP1 EXEC FORTGLG 
//LKED.SYSIN DD * 


(Poet ee ee 1 
fege: "FORTRAN Object Module | 
Ne a ae ee erate es 4 
/* 


//GO«FTO4FO01 DD DSNAME=FIRING, 

// UNIT=SYSDA,DISP=(NEW, CATLG), 

//  — SPACE=(100, (2000, 200),,,ROUND), 

// VOLUME= (PRIVATE, SER=207H) , 

//  DCB=(RECFM=VB, LRECL=300, BLKSIZE=604) 
//GO.FTO8F001 DD DCB=(RECFM=F, BLKSIZE=200) 
//GO.SYSIN DD * 


mS OS PG OS 


CO re eo eee 1 
| _ Input to Load Module | 
os ewe ne ae ee ce eo a i er a oe 4 
ye ae 

Example 3: Assume the linkage edit and 


execute cataloged procedure (FORTGLG) is 
used. The load module constructed in the 
linkage editor step is placed in the cata- 
loged partitioned. data set MATH and is 
assigned the member name DERIV. 


//3OB3. JOB. 

//STEP1 EXEC FORTGLG . 
//LKED.SYSLMOD DD DSNAME=MATH(DERIV), x 
4/ DISP=(OLD, PASS) 

//LKED.SYSIN DD * 


SSS a ee er 1 
| FORTRAN Object Module | 
/* 

//GO.SYSIN DD. * 

mem dm ea abreast Pa 1 
|. Input to Load Module | 
Vow aara eee eee ek eee eee 4 
/* 


Example 4: Assume the compile, linkage 
edit, and execute cataloged procedure 
(FORTGCLG) is used with three data sets in 
the input stream: 


1. A FORTRAN main program MAIN with a 


series of SUDRTOST Ames SUB1 through 
SUBN. 


80 


2. A linkage editor control statement 
that. specifies an additional library, 
_MYLIB. MYLIB is used to resolve 
external references for the symbols 
ALPHA, BETA, and GAMMA. 


3. A data set used by the load module and 
identified by data set reference 
number 5 in the source module. 


The following example shows the deck 
structure. 


//JOBCLG JOB 00, FORTRANPROG, MSGLEVEL=1 
//HXECCLGX EXEC FORTGCLG 
//¥FORT.SYSIN DD * 


aaa +++ ++ +f 
| FORTRAN Source Module SUB1 | 
ea aa a a a 4 

. | 

| : | 
| . | 
|------------------~----------------------- { 
| FORTRAN Source Module SUBN | 
bie eee ee eee ee oe 4 
/* 
_//LKED.ADDLIB DD DSNAME=MYLIB 
//LKED.SYSIN DD * 

LIBRARY ADDLIB(ALPHA, BETA, GAMMA) 
/* 
4/GO.SYSIN DD * 
ae ny ree ae en ree i ne ene 1 
| Input to Load Module | 
et ee J 
/* 


The DD statement FORT.SYSIN indicates to 
the compiler that the source modules are in 
the input stream. The DD statement LKED. 
ADDLIB defines the additional library MYLIB 
to the linkage editor. The DD statement © 
LKED.SYSIN defines a data set that is con- 
catenated with the primary input to the 
linkage editor. The linkage editor control 
statements and the object modules appear as 
one data set to the linkage editor. The DD 
statement GO.SYSIN defines data in the 
input stream for the load module. 


For ease of reference this section, 
directed solely to the user of the FORTRAN 
IV (H) compiler, has been written as a 
self-contained, independent unit. For 
information on FORTRAN IV (G) cataloged 
procedures, see “FORTRAN IV (G) Cataloged 
Procedures." 


This section contains figures showing 
the job control statements used in the Fo- 
RTRAN IV cataloged procedures and a brief 
description of each procedure. This sec- 
tion also describes statements used to 
Override statements and parameters in any 
cataloged procedure. (The use of cataloged 
procedures is discussed in “FORTRAN Job 
Processing. ") 


Compile 


In the four cataloged procedures that 
have a compile step (see Figures 47, 48, 50 
and 51) the EXEC statement named FORT indi- 
cates that the operating system is to 
execute the program IEKAA00 (the FORTRAN IV 
H compiler). 


The REGION parameter is ignored by 
sequential schedulers. MVT priority sche- 
dulers require that region size be speci- 
fied, unless the user is willing to accept 
the default region size (as established in 
the input reader procedure). 


The amount of main storage allocated for 
the FORTRAN H compiler depends on the 
region size in an MVT environment, the par- 
tition size in an MFT environment, or the 
machine size in a PCP environment. The 
compiler uses all available main storage 
except for 3K bytes which are left for non- 
resident system routines. 


In certain instances, a programmer may 
wish to limit the amount of main storage 
used by the compiler. An example would be 
when the FORTRAN H compiler is executed as 
the original task in a multitasking 
environemnt. Unless the amount of main 
storage used by the compiler is limited, no 
subtasks could be created since no more 
storage would be available in the region. 


The programmer may request the amount of 
main storage to be allocated for the com- 
piler by specifying the SIZE option in the 
PARM parameter. Specific information con- 
cerning the SIZE option can be found in the 
section “Compiler Options." 


Note: If different region sizes are to be 
specified for each step in the job, the 
REGION parameter should be coded in the. 
EXEC statement associated with each step 
instead of the JOB statement. 





Compiler options are not explicitly 
specified; default options are assumed -- 
in particular, SOURCE and LOAD. The source 
listing and compile-time information and 
error messages are written in the SYSOUT 
data set. 


The object module is written in the tem- 
porary data set &LOADSET. The data set 
€LOADSET is a sequential data set and is in 

"pass" status; records can be added to the 
data set. 


The SYSOUT=B parameter on the SYSPUNCH 
DD statement is interpreted by sequential 
schedulers as a specification for the sys- 
tem card punch unit. The priority schedu- 
lers route the output data set to system 
output class B. A programmer can get an 
object module card deck by overriding the 
default NODECK option with an explicit DECK 
option. 


Several additional DD statements, 
external to the procedure, may be supplied. 
If the EDIT option is used, a work data set 
must be defined with a FORT.SYSUT1 DD 
statement. If the compiler XREF option is 
specified, a work data set must be defined 
with a FORT.SYSUT2 DD statement. Input to 
the compile step is defined by a FORT. SYSIN 
DD statement. 


The data set SYSUT1 must be specified if 
the compiler option EDIT (produce struc- 
tured source listing) was requested. SYS- 
UT2 must be specified if the compiler © 
option XREF (produce cross reference list- 
ing) was requested. Both data sets may 
reside on tape or direct access but must be 
defined in the sequential device class. 

The following is a typical DD statement for 
a utility data set: 


//SYSUT1 DD DSNAME=6UT1, UNIT=sYssQ, sey 
SPACE=(TRK, (40) ) , 


§UT1 specifies a temporary data set. 
UNIT=SYSSQ specifies that the data set is 


to reside ina sequential device 
class. 
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Sample Coding Form 


i a Ta De RR ET a ee ee a eS ee 
[23 ]41516]71819[o] | 121314 {5]6]7][8]9]o] 1 12]314]s16]7 [sl9lo} 1 1213]4[Slel71elslo] 1 12[314[sl6]7[s[siol | 1213141516]? [e[9lol | 123141 [6[7isi{sjo} | [213}4/sisi7isisio 


//SYSPRINT, DD. SYSOUT=A 
//SYSPUNCH, DD SYSOUT=B8 
J7SYSLIN 





Figure 47. 


SPACE=(TRK, (40)) specifies that if the data 
set is assigned to a direct access 
device, 40 tracks are to be allocated 
to the data set. 


Linkage Edit 


In the three cataloged procedures that. 
have a linkage edit step (see Figures 48, 
49, and 50), the EXEC statement named LKED 
indicates that the operating system is to _ 
execute the program IEWL (the linkage edi- 
tor). The linkage editor requires a region 
of 54K if. used with MVT. The linkage edi- 
tor step (or the remainder of a procedure) 
is not executed if a condition code greater 
than 4 was. generated by a compile step in 
the same procedure. 


If the linkage edit step is executed, a 
list of linkage editor control statements 
(in card image format), a map of the load 
module and a list of linkage editor diag- 
nostic messages are written in the SYSOUT 
data set. The load module is marked exe- 
cutable even though error conditions are 
found during linkage editor processing. 


If the linkage edit step is preceded by 
a compile step (see Figures 48 and 50), the 
primary input to the linkage editor may 
consist of concatenated data sets. The 
first, defined by the SYSLIN DD statement, 
‘is the output of the compiler (&LOADSET 
data set); the second (if present) is the 
data set defined by a LKED.SYSIN DD state- 
ment (external to the procedure). However, 
if the linkage edit step is the first step 
ina procedure (see Figure 49), the primary 
input. is the data set defined by a 
LKED.SYSIN DD statement. 
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DD _DSNAME=€LOADSET sUNIT=SYSSQDISP=(MOD »PASS) 9 
as SPACE = (4009 (2005) yRLSE) 





Compile Cataloged Procedure (FORTHC) 


External references made in a FORTRAN 
object module are resolved by the linkage 
editor. Some or all of these references 
can be resolved from the FORTRAN library 
(SYS1.FORTLIB) which is a system resident 
PDS. 


During processing, the linkage editor 
requires a work data set which is defined 
by the SYSUT1 DD statement. This data set 
is assigned to a direct-access device. : 


The load module produced by the linkage 
editor is written in the temporary PDS. 
&GOSET with a member name of MAIN. The 
data set is in “pass” status and is 
aagiqned to a direct-access device. 


Execute 


In the two cataloged procedures that 
have an execute step (see Figures 49 
ani 50), the EXEC statement named GO indi- 
cates that the operating system is to. 
execute the load module (program) produced 
in a preceding linkage edit step in the 
same procedure. However, the execute step 
is bypassed if a condition code greater 
than 4 was generated by a compile or link- 
age edit step in the same procedure. 


Input to the execute step is defined by 
a GO.SYSIN DD statement (external to the 
procedure) and is read using data set 
reference number 5. Execution-time error 
messages and information for traceback and 
FORTRAN dumps are written in the SYSOUT 
data set that is associated with data set 
reference number 6... (Output from the load 
module can also be written in the same data 
set.) The card punch is associated with 
data set reference number Te 


Sample Coding Form 





a ee 21-30 a 2 Oe RO 61-70. __, 71-80 
21314 [5{6[7 [6 [9[ol t [213]4[S]6]7 le [slol 12] 3]41S le] 7 le[slol | [21314 Isle]? [e[sjol i j2]3[4[s[el? [e[s{ol | j2[3]4[sle[? [s[siol i t2[314[5{e]7|e{sjol i [2{3/4{sié]7|sigio} 


//SYSPRINT, DD SYSOUT=A 
//SYSPUNCH, DD SYSOUT=B | ase eee Uren ee ee 
//SYSLIN | DD DSNAME=€LOADSET UNI T=SYSSQ.DISP=(MOD PASS) } 

SPACE = (4069 (26095) sRLSE ) | 
/LKED EXEC PGM=IEWL>REGION=54K>PARM=(MAP4LET 9LIST) »COND=(H oLT >FORT) 
//SYSLIB , DD DSNAME=SYS1.FORTLIBoDISP=SHR 
//SYSPRINT, DD = SYSOUT=A See enn tes 
/1SYSLMOD | DD | DSNAME=§GOSET(MAIN) )UNIT=SYSDA9DISP=( 9PASS) 9, 
il PACE = (3072 9(3091091,) 9RLSE) 
//SYSLIN | DD DSNAME=§LOADSET »DISP=(OLD>» DELETE) 














eC OTs oes Yes 


Se oes a Tae oe A 








ee SO oe ee 





DD _ DDNAME=SYSIN 





EOS es sO a 








2A)... eeeene 





i] 
I//SYSUTL | DD DSNAME- #5Y,5UT1 UNI T=SYSDA,, SPACE=( 10.24 , C2.00, 
| SEP=SYSLMOD 


Figure 48. Compile and Linkage Edit Cataloged Procedure (FORTHCL) 


In a multiprogramming environment with = //EXAMPLE1 JOB ACCOUNT1,‘*JOHNSMITH', 





x 
an MVT priority scheduler, main storage £ £=/// MSGLEVEL=1 
requirements for the execute step are // EXEC FORTHCLG, PARM. FORT=DECK, Xx 
determined by a number of factors. These /f REGION. GO=200K 
include: the size of the object program //FORT.SYSIN DD #* 
produced by the compiler, the requirements _ [woo nn 1 
of the data access method used, the block- _ {| | FORTRAN Source Symbolic Decks | 
ing factors, the number and sizes of the t________._-- 4 
data sets used, the number and sizes of /* 
library subprograms invoked, and the sizes //UKED.SYSIN DD #* 
of the execution time routines required by [oon 1 
the program. If the default region size | Previously Compiled or Assembled | 
(established in the cataloged procedure for | Object Decks { 
the input reader) is not large enough for t_—_—_—_-- ~~ --——-—-~— ~~ - —- - —- ~~ - + 4 
the program, REGION.GO must be used to spe- /* 
cify the region size for the execute step. //GO.SYSIN DD # 
Se ee ee ee 1 
| Input Data | 
ee a el 4 
[* 
A list of the execution time routines 
required for various input/output, inter- Load 
ruption, and error procedures is contained 
in the FORTRAN IV Library Subprograms pub- 
lication, Order No. GC28-6818. That pub- In the one cataloged procedure that has 
lication also lists the sizes of both the a load step (see Figure 51), the EXEC 
executivun-time routines and the mathemati- statement named GO indicates that the 
cal subprograms. operating system is to execute the program 


LOADER (the loader). The EXEC statement 
also specifies that a storage map of the 


loaded program is to be produced. This map 


is to be placed in the data set specified 


in the SYSLOUT DD statement. 
An example of using a REGION.GO 


specification to indicate the main storage The load step will not be executed if a 
requirements for the execute step of a condition code greater than 4 was generated 


FORTRAN program follows. during the compile step. 
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Primary input to the load step is 
defined in the SYSLIN DD statement. This 
is the output data set produced by the com- 
piler. Additional input may be defined by 
a GO.SYSIN DD statement which is supplied 
by the user and is external to the proce- 
dure. This data set is concatenated with 
the primary input data set. 


Any external references made in the load 
step are resolved by the loader. Some or 
all of these references can be resolved 
from the FORTRAN library (SYS1.FORTLIB) 
designated in the SYSLIB DD statement. 
Private libraries may be concatenated with 
the FORTRAN library to help resolve 
external references. Figure 29 shows how 
this may be done. : 


USER AND MODIFIED CATALOGED PROCEDURES 


eee eae mein SI ti eS Se Re e EESe S—R  RT  EL ASLne RNa SNe 


The programmer can write his own cata- 
loged procedures and tailor them to the 
facilities in his installation. He can 
also permanently modify the IBM-supplied 
cataloged procedures. For information. 
about permanently modifying cataloged pro- 
cedures, see the Job Control Language 
Reference publication, Order No. ee 
GC28~-6704. 


The IBM-supplied cataloged procedures 
for FORTRAN IV (H) define logical unit 05 
as SYSIN and 06 as SYSOUT (see Figures 49, — 
50, and 51). If, during system. generation, 


values other than 05 for the ONLNRD parame- 


ter and 06 for the OBJERR parameter were 


specified in the FORTLIB macro instruction, 
one or both of the following DD cards must 
be added to the cataloged procedures, ei- 
ther at execution time or permanently. 


e For the unit specified as ONLNRD, use 
the DD card: 


/4/GQO.FTxxF001 DD DDNAME=SYSIN, 
DCB= (BLKSIZE=80, RECFM=F) 


-@ For the unit specified as°OBJERR, use 
the DD card: 


—4/GOsFTxXxF001 DD SYSOUT=A where xx is 
the unit specified. (The System Generation 
publication, Order No. GC28-6554, 
describes the FORTLIB macro instruction.) 


In addition, the DD card for FTOS5F001 
must be deleted permanently from the proce- 
dure. The following section describes the 
general procedure for adding and deleting 


‘statements from cataloged procedures. 


OVERRIDING CATALOGED PROCEDURES 


Cataloged procedures are composed of 
EXEC and DD statements. A feature of the 
operating system is its ability. to read . 
control statements and modify a gakaloged.. 
procedure for the duration of the current 
job. Overriding is only temporary; that 
is, the parameters added or modified are in 
effect only for the duration of the job. 
The following text discusses the techniques 
used to modify cataloged procedures. 


Sample Coding Form 


[izio |] S200 Cd AT 80-60 i-70 io 
i 213141516718 1910] 1 [213141516] 7 1s19ol | 21314151617 S191} | [2] 314 |5[el7 leis lo} [2|3]4[s{el7 fe[sjol i j2]3141sl6]7]s]siol i 1213/4[slei7isisio} | j2i3i4isie|7is{9jo) 


//LKED EXEC PGM=IEWL »REGION=54K)PARM= (MAP 5LET)LIST) 
DD DSNAME=SYS1.FORTLIB)DISP=SHR 


//SYSLIB 
//SYSPRINT, DD SYSOUT=A 
//SYSLIN | DD DDNAME=SYSIN 





5 Ute ese Verve 


//SYSLMOD , DD DSNAME=§GOSET(MAIN) »UNIT=SYSDA»DISP= (sPASS) 3 X 


// SPACE= (36729 (3010)1)) 9 RLSE) 


\//SYSUT1 DD DSNAME=€5Y,SUT1,UNIT=SYSDA, SPACE=C1024 , C209, 20) ), SEP=SYSLMOD 


\//GO 
//FTO5FOO1 
//FTO6FOO1 
//FTOIFOO1. DD | 


DD | DDNAME=SYSIN 
“DD SYSOUT=A 
SYSOUT =B 


Figure 49. 
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Linkage Edit and Execute Cataloged Procedure (FORTHLG) 







Sample Coding Form — 





41-50 61-70 Ti-80 


aS eee 1-20 2-30 “3I-40 [ CSI-60 i 
HPBISIsI7ISSOtT ESI 5161716 S11 STAs [617 ISTO! 21314 [Sle] 7161910 121314151617 8191011121314 5161 71619101 213141516] 7181910) (21314lsle|7 161910 


//FORT EXEC PGM=IEKAA@G)REGION=228K : 7 | 
//SYSPUNCH DD SYSOUT=B 

//SYSLIN | DD DSNAME=§LOADSET )UNIT=SYSSQ.DISP=(MOD PASS )) X 

/ SPACE=(40@1 (206,950) »RLSE ) 

J/LKED EXEC PGM=IEWL)REGION=54K9PARM=(MAPoLET5LIST) 9COND=(ULT >FORT ) 


//SYSLIB , DD DSNAME=SYS1.FORTLIB)DISP=SHR | 


//SYSPRINT, DD SYSOUT=A 

//SYSLMOD , DD DSNAME=&GOSET (MAIN) SUNIT=SYSDAyDISP=(9 PASS) 9 X 

// SPACE =(36729(38)18)1) 9RLSE) ) | | | 

//5YSUT1 DD DSNAME=£S5YSUTL,UNIT=SYSDA, SPACE=(1924 (209,20) ), SEP=SYSLMOD : 
, , : 


7/SYSLIN , DD DSNAME=e€LOADSET,,D[ 5P=COLD, DELETE 
femaes ME=SLOADS NAPLES 


~ 























/1GO_, EXEC PGM=*. LKED .SYSLMOD 9COND=(C4jLTo FORT) 9 (WoT sLKED)) 
//FTGSFQG! DD DDNAME=SYSIN | : 
//FT@CFOG1 DD SYSOUT=A 


Figure 50. Compile, Linkage Edit, and Execute Cataloged Procedure (FORTHCLG) 
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tard form, 18M electro 888157, is available for punching statements from this foo 


Figure 51. Compile and Load Cataloged Procedure (FORTHCLD) 
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Overriding Parameters in the EXEC Statement 


Two forms of keyword parameters 
("*keyword" and “keyword.procstep") are dis- 
cussed in "Job Control Language." The form 
“keyword. procstep" is used to add or over- 
ride parameters in an EXEC statement in a 
cataloged procedure. 


The FORTRAN programmer can, for example, 
add (or override) compiler or linkage edi- 
tor options for an execution of a cataloged 
procedure, or he can state different condi- 
tions for bypassing a job step. 


Note: When the PARM parameter is overrid- 
den, all compiler and/or linkage editor 
options stated in the EXEC statement in the 
procedure step are deleted and replaced by 
those in the overriding PARM parameter. 


Example 1: Assume the cataloged procedure 
FORTHC is used to compile a program, and 
the programmer wants to specify the name of 
his program and the MAP option. The fol- 
lowing statement can be used to invoke the 
procedure, and to supply the compiler 
options. 


//STEP1 EXEC FORTHC, | x 
// PARM, FORT='* MAP, NAME=MYPROG* 


The PARM options apply to the procedure 
step FORT. 


Example 2: Assume the cataloged procedure 
FORTHLG is used to linkage edit and execute 
a module. Furthermore, the XREF option 
overrides MAP, LET, and LIST in the linkage 
editor step and the COND parameter is 
changed for the execution of the load 
module. The following EXEC statement adds. 
and overrides parameters in the procedure, 


//D0 EXEC FORTHLG, PARM. LKED=XREF, Xx 
11 COND. GO= (3, LT, DO. LKED) 


The PARM parameter applies to the link- 
age editor procedure step LKED, and the 
COND parameter applies to the execution 
procedure step GO. 


Example 3: Assume a source module is com- 
piled, linkage edited, and executed using 
the cataloged procedure FORTHCLG. Further- 
more, the compiler option OPT and the link- 
age editor option XREF are specified, and 
account number 506 is used for the execu- 
tion procedure step. The following EXEC 
statement adds and overrides parameters in 
the procedure. 


//STEP1 EXEC FORTHCLG, 
47 PARM. FORT=* OPT=2', 
4/ PARM. LKED=XREF, 

4/4 ACCT. GO= 506 


ms OS 
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Example 4: Assume a source module is com- 
piled and loaded using the cataloged proce- 
dure FORTHCLD. Furthermore an external 
name is specified as the entry point of the 
loaded program. The following EXEC state- 
ment adds and overrides parameters in the 
procedure. 


//STEP1 EXEC FORTHCLD, PARM. GO="EP=FIRST‘ 


Overriding and Adding DD Statements 


A DD statement with the name “stepname. 
ddname" is used to override parameters in 
DD statements in cataloged procedures, or 
to add DD statements to cataloged proce- 
dures. The “stepname™ identifies the step 


in the cataloged procedure. If “ddname" is 


the name of a DD statement present in the 
step, the parameters in the new DD state- 
ment override parameters in the DD state- 


ment in the procedure step. If “ddname” is 
the name of a DD statement not present in 


the step, the new DD statement is added to 
the step. 


In any case, the modification is only ef- 
fective for the current execution of the 
cataloged procedure. 


When overriding, the original DD state- 
ment in the cataloged procedure is copied, 
and the parameters specified in it are 
replaced by the corresponding parameters in 
the new DD statement. Therefore, only 
parameters that must be changed are. speci- 
fied in the overriding DD statement. 


If more than one DD statement is modi- 
fied, the overriding DD statements must be 
in the same order as the DD statements 
appearing in the cataloged procedure. Any 
DD statements that are added to the proce- 
dure must follow overriding DD statements. 


Note: The following additional rules apply 


to overriding in cataloged procedures: 


1. In the DCB parameter, individual sub- 
parameters can be overridden. 


2. To nullify the use of any particular 
keyword parameter (except the DCB 
parameter), the overriding DD state- 
ment must specify 


keyword=, 


3. A parameter can be overridden by spec- 
ifying a mutually exclusive parameter 
in the overriding DD statement. For 
example, in the FORTHC procedure, the 
SPACE specification for SYSLIN may be 
overridden by using either the SPLIT 
or SUBALLOC parameter. 


When the procedures FORTHC, FORTHCL, 
FORTHCLG, and FORTHCLD are used, a DD 
statement must be added to define the SYSIN 
data set to the compile step in the proce- 
dures (see Figures 16, 22, and 23.1). With 
MVT, if SYSUT1 and SYSUT2 DD statements are 
added to the FORT step, the DSNAME=&SYSUT1 
and DSNAME=&SYSUT2 DD parameters should be 
used in order to employ the dedicated work- 
file feature of the operating system. For 
information on dedicated workfiles, see the 
Job Control Language Reference publication. 
When the procedure FORTHLG is used, a DD 
statement must be added to define the 
SYSLIN data set (see Figures 18 and 19). 


When the procedures FORTHCL, FORTHLG, 
and FORTHCLG are used, an overriding DD 
statement can be used to write the load 


module constructed in the linkage editor 
step in a particular PDS chosen by the pro- 
grammer, and assign that member of the PDS 
a particular name. 


In execution procedure steps, the pro- 
grammer can catalqg data sets, assign names 
to data sets, supply DCB information for 
data sets, add data sets, or specify par- 
ticular volumes for data sets by using 
overriding and/or additional DD statements. 


Example 1: Assume the data sets identified 
by ddnames FTO4FO01 and FTO8F001 are named, 
cataloged, and assigned specific volumes. 
The following DD statements are used to add 
this information and indicate the location 
of the source module. 
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/4/3JOB1 JOB MSGLEVEL=1 
//STEP1 EXEC FORTHCLG 
//FORT.SYSIN DD * 


| eee Ae en tact i re A tae ain cin aot ml aa ae a ee ee ae ae ae een Se ay ree oe eee ane Ae 


| FORTRAN Source Module | 


ii 5 eon eke eww ana ae ae ee eed 
/* 

//GO.FTO4FO01 DD DSNAME=MATRIX, x 
// + DISP=(NEW, CATLG) , UNIT=TAPE, x 
4/ VOLUME=SER=987K 

//GO.FTO8F001 DD DSNAME=INVERT, x 
// DISP=(NEW, CATLG) , UNIT=TAPE, xX 
4/ VOLUME=SER=1020 . 

4/GQO.SYSIN DD #* 

SSS aera ad eat me ies 1 
| Input to Load Module | 
Lottueeete ae ee ee J 
/* 

Example 2: Assume the linkage edit and 


execute cataloged procedure (FORTHLG) is 
used. The load module constructed in the 
linkage editor step is placed in the cata- 
loged partitioned data set MATH and is 
assigned the member name DERIV. 


//30OB3 JOB 

//STEP1 EXEC FORTHLG 

//UKED.SYSLMOD DD DSNAME=MATH(DERIV) , x 
// . DISP=(MOD, PASS) 

//UKED.SYSIN DD * 


| pea sarios <r OR eR HO AC “AS i SOO AO NS OE CAR CD EI se rk SC EA Se 


| FORTRAN Object Module | 
be ee ee _— ee a ee ee een d 
/* . 

//GO.SYSIN DD * 





on 7 


| —sInput_to Load Module | 


Nn ee ne et ee ee, pa Sa a ee ae 


/* 


Example 3: Assume the compile, linkage 
edit, and execute cataloged procedure (FOR- 
THCLG) is used with three data sets in the 
input stream: 


1. A FORTRAN main program MAIN with a 
series of subprograms, SUB1 through 
SUBN. 


2. A linkage editor control statement 
that specifies an additional library, 
MYLIB. MYLIB is used to resolve 
external references for the symbols 
ALPHA, BETA, and GAMMA. 


3. A data set used by the load module and 
identified by data set reference nun- 
ber 5 in the source module. 


The following example shows the deck 
structure. 


//JOBCLG JOB 00,FORTRANPROG ,MSGLEVEL=1 
/4/HXECCLGX EXEC FORTHCLG 
//¥FORT.SYSIN DD * 


aia maa aa ee ci ee ee 1 
{ FORTRAN Source Module MAIN | 
}--—------~---------------------—-------- : 
| FORTRAN Source Module SUB1 | 
penn nnn rr en ern ene mmen 1 
{ - { 
| . I 
| . [ 
| ---------------+------------------------- { 
| FORTRAN Source Module SUBN | 
ee See ata ee eee eas J 
/* 


//LKED.ADDLIB DD DSNAME=MYLIB 
//LKED.SYSIN DD * 

LIBRARY ADDLIB (ALPHA, BETA, GAMMA) 
7/* 
//GO.SYSIN DD # 


a ee eS ey 


| Input to Load Module | 
Ng ee 4 


/* 


The DD statement FORT.SYSIN indicates to 
the compiler that the source modules are 
in the input stream. The DD statement 
LKED.ADDLIB defines the additional library 
MYLIB to the linkage editor. The DD state- 
ment LKED.SYSIN defines a data set that is 
concatenated with the primary input to the. 
linkage editor. The linkage editor control 
statements and the object modules appear as 
one data set to the linkage editor. The DD 
statement GO.SYSIN defines data in the 
input stream for the load module. 
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PROGRAMMING CONSIDERATIONS 


This section discusses a variety of pro- 
gramming topics that should be considered 
in writing a FORTRAN program. 


STORAGE LOCATIONS AND BYTES 


Storage locations in System/360 are 
called bytes, words, and double words. One 
word is four bytes long; a double word is 
eight bytes long. When data is read into 
main storage, it is translated into inter- 
nal format. See Table 18 for storage allo- 
cation according to the type and length of 
the constant or variable. 


Table 18. Storage Allocation 
ila aa arama ce ER ae SE Eee ee er ee 1 
| Type ~TLength| Storage | 
}---------------}------4---------—------- : 
| Logical { 1 1 |1 byte | 
| | } 4 |4 bytes I 
i ae a oceans -~—~—4-—-~--—__-—---+----] 
| Real | 4 |4 bytes | 
| I {8 bytes | 
| Integer | 2 |2 bytes(variable | 
| | | only) | 
| | 4 |4 bytes | 
|--------------- 4------}---------------—- 4 
| Complex | 8 |8 bytes | 
| | 16 |16 bytes | 
ae 
[. Character {| --  |1 character/byte | 
| (BCD or EBCDIC) | | . | 
a+ +--+ -} --- +} -- +--+ -—-- +--+ 
| Hexadecimal | -- |2 characters/byte | 


ee oe eee he a hee ee eed 


MINIMUM SYSTEM REQUIREMENTS FOR THE FORTRAN 
Ivy (G) AND (H) COMPILERS 





The operating system is device independ- 
ent. In particular, the FORTRAN IV (G) and 
(H) compilers can operate with any combina- 
tion of devices (shown in Table 4); howev- 
er, there are certain requirements. 


e The FORTRAN IV (G) compiler requires at 
least a System/360, Model 40, with 128K 
bytes of storage and a standard 
instruction set with the floating-point 
option. 


e The FORTRAN IV (H) compiler requires at 
least a System/360, Model 40, with 256K 
bytes of storage and the standard 
instruction set with the floating-point 
option. 
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e All programs require a device, such as 
the 1052 keyboard printer, for direct 
operator communication. 


e At least one direct-access device must 
be used for residence of the operating 
system. 


e For FORTRAN Iv (G), the printer must 
have at least a 120-character print 
line; for FORTRAN IV (H), at least a 
132-character print line. 


Boundary Adjustment of Variables in. COMMON 
Blocks and EQUIVALENCE Groups 


Variables in a COMMON block or EQUIVA- 
LENCE group may be in any order if the 
BOUNDRY=ALIGN option is specified in the 
FORTLIB macro instruction during system 
generation, because boundary alignment vio- 
lations are corrected during execution. 
(The FORTLIB macro instruction is described 
in the System Generation publication.) — If 
the BOUNDRY=NOALIGN option is specified and 
boundary violations are encountered during 
execution of the object program, the job 
terminates. 


If the BOUNDRY=ALIGN option of the FORT- 
LIB macro instruction is specified and a 
boundary violation occurs in a FORTRAN main 
program or in a FORTRAN or assembler lan- 
guage subprogram, each instruction that 
refers to the improperly aligned variable 
requires that (1) the specification excep- 


tion resulting from this reference be proc- 


essed, and (2) the boundary alignment rou- 
tine be invoked. Therefore, considerable 
programming efficiency is gained if the 
programmer ensures that all of the 
variables have proper boundary alignment. 
The FORTRAN IV Language publication con- 
tains information on boundary alignment. 


When boundary alignment is performed, 
program interrupt message IHC210I is 
issued. (This message is described com- 
pletely in the section “Program Interrupt 
Messages" in Appendix D). For boundary 
alignment, the letter A appears in the text 
of the message and the code 6 appears in 
the old PSW (program status word), which is 
included in the message. The number of 
warning messages printed is limited to 10. 
After 10 boundary alignment adjustments 
have been made, the message is suppressed, 
but boundary alignment violations continue 
to be corrected. 


Note: Even if BOUNDRY=ALIGN is specified 
and a boundary error occurs in an EXECUTE, 
LM (load multiple), or STM (store multiple) 
instruction in a subprogram written in 
assembler language, boundary adjustment 
does not take place and the job terminates. 
Therefore, if these instructions refer to 
improperly aligned data, they should not be 
used in assembler language subprograms. 





Indicators and Sense Lights 


At the start of program execution, the 
divide-check indicator, the overflow indi- 
cator, and the pseudo sense lights are not 
initialized. Therefore, if a programmer 
intends to use the indicators or sense 
lights, he should initialize them prior to 
use; Otherwise, erroneous results may be 
obtained, (For additional information, see 


ee Ne en sae ee SI NE Stee REY RAR 


Conditional Branching 


A test for 0.0 in an IF statement is not 
recommended. Slight inaccuracies may cause 
the low-order bit(s) to be set. Therefore, 
the test for 0.0 may not yield the expected 
result. a Chea 2h 


Arithmetic IF Statement 


A fixed-point overflow condition results 
in the following action: 


e In FORTRAN (G), if the integer is posi- 
tive, a negative branch is taken, i.e., 
the first branch. If the integer is 
negative, a positive branch is taken, 
iee., the third branch. 


e In FORTRAN (H), the zero (middle) 
branch is always taken. 


Use .of STOP n Statement 


There are no checks made to determine if 
a value of n greater than 4095 is used in 
the STOP n statement. 4095 is the maximum 
value that can be used for n and still fit 
into the 3 digits used for the user 
condition-code. Any value of n greater 
than 4095 overflows into the system condi- 
tion code. 


Register 15 as _a Condition Code Register 


Register 15 is used by the compilers as 
a condition code register, a RETURN code 
register, and a STOP code register (STOP 
code = condition code). The particular 
values that Register 15 can contain and 
their explanations follow: 


16 -- A terminal error has been detected 
during execution in a subprogram (an 
IHCxxxI message is generated). 


4*] -- A RETURN i statement has been 
executed in a Subprogram (i isa 
RETURN code). 


n -- A STOP n statement has been executed 


(n is the condition code). 


0 -- A RETURN or a STOP statement has 
been executed in either a main pro- 
gram Or a subprogram (0 is a RETURN 
code or a condition code). 


Note: Both FORTRAN (G) and (H) will gener- 
ate a STOP (i.e., O is the condition code) 
for a RETURN or RETURN i issued in a main 
program. 





Use_of Embedded Blanks _in_ FORTRAN Programs 


To improve the readability of a source 
program, the programmer may use any number 
of blanks when writing FORTRAN statements. 
Except for literal data, in which blanks 
are retained as coded in the source state- 
ment, blanks are normally ignored by the 
compilers. Thus, the statements DO 25 J = 
10 is the equivalent of DO25J=10. Both 
statements are syntactically correct as- 
Signment statements and are executed as 
such, i.e., a value of 10 is assigned to 
the variable DO25J. Neither statement will 
cause an error message. 


Use_of DUMP and PDUMP 


Under the operating system, a program 
may be loaded into different areas of 
storage for different executions of the 
same job. The following conventions should 
be observed when using the DUMP or PDUMP 
subroutine to insure that the appropriate 
areas of storage are dumped. 


If an array aiid’ a variable are to be 
dumped at the same time, a separate set of 
arguments should be used for the array and 
for the variable. The specification of 
limits for the array should be from the 
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first element in the array to the last ele- 
ment. For example, if an array TABLE is 
dimensioned as: 


DIMENSION TABLE (20) 


the following statement could be used to 
dump TABLE and the real variable B in hexa- 
decimal format and terminate execution 
after the dump is taken: 
CALL DUMP (TABLE(1), TABLE(20), 0,B,B,0) 

If an area in COMMON is to be dumped at 
the same time as an area of storage not in 
COMMON, the arguments for the area in 
COMMON should be given separately. For 
example, if A is a variable in COMMON, the 
following statement could be used to dump 
the variables A and B in real format 
without terminating execution: 


CALL PDUMP (A,A,5,B,B,5) 


If variables not in COMMON are to be 
dumped, the programs should list each vari- 
able separately in the argument list. For 
example, if R, P, Q are defined implicitly 
in the program, the statement 


CALL PDUMP(R,R, 5, P,P, 5,0,Q,5) 


should be used to dump the three 
variables. If 


CALL. PRUNE SED Os 2? 


is used, ali main storage. between R and Q 
is dumped. 


If an array and a variable are passed as 
arguments to a subroutine, the arguments in 
the call to DUMP or PDUMP in the subroutine 
should specify the parameters used in the 
definition of the subroutine. For example, 
if the subroutine SUBI is defined as: 


SUBROUTINE SUBI(X, Y) 
DIMENSION X(10) 


and the call to SUBI within the source 
module is: 


DIMENSION A(10) 


CALL SUBI(A, B) 
then the following statement in the subrou- 
tine should be used to dump the variables 


in hexadecimal Format wichout terminating 
execution: | 


CALL PDUMP (X(1),X(10),0,Y,Y, 0) 
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‘If the statement 


CALL PDUMP (X(1),Y,0) 


is used, all storage between A(1) and Y is 
dumped, due to the method of transmitting 
arguments. (Y does not occupy the same 
storage location as B.) 


Use of ERR Parameter in READ Statement 


Use of the optional ERR parameter for a 
READ statement can indicate the source pro- 
gram statement to which transfer should be 
made if an error is encountered during data 
transfer. When transfer has been made to 
that statement, the first subsequent READ 
in the source program provides the record 
that was in error. If this is not the 
record desired, an additional READ should 
be issued. . . 


If the ERR parameter is omitted from the 
READ statement, an input/output device 
error terminates program execution. 


ARITHMETIC’ eon ee ee FUNCTIONS: 


ROAST He MS cams EOSIN OA 


“The Arséhmetie Statement Functions (ASF) 
can be used to cause selective “automatic" 
typing. For example, the ASF, 


SORT (X) =DSORT (X) 


causes the desired function name substitu- 
tion, so that each use of SORT(X) in an 
expression in the program. will cause execu- 
tion of DSQRT(X). 


To accomplish the substitution, the 
argument type(s) in the ASF should agree 
with the type of argument(s) required for 
the desired subprogram. In the example 
above, X should be typed as REAL*8, Fur- 
thermore, the function name itself should 
be typed to agree with the function value 
type of the desired subprogram. In the 
example, SQRT should be typed as REAL*8. 


FORTRAN (H) does not actually require 
that an ASF argument be typed as REAL*8, 
but because FORTRAN (G) does, it is recom- 
mended it be done for both compilers to 
ensure interchangeability. However, the 
actual argument should be REAL*8 or be 
tyEe to be REAL*8. 


cr 1 
IG ONLY|Use_of ASSIGN Statement | 
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The FORTRAN IV (G) compiler uses table The following discussion applies to FOR- 
entries produced in one of its phases to TRAN IV (G) only. For information on FOR- 


perform storage allocation for the 
variables defined in the source module. 
This process may result in an unusual 
amount of compilation time if a large num- 
ber of ASSIGN statements are specified in 
the source program. The use of a large 
number of ASSIGN statements should be 
avoided. 
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TRAN IV (H) DO loop optimization, see 
Appendix G, “FORTRAN IV (H) Optimization 
Facilities.” 


During the operation of the FORTRAN IV 
(G) compiler, one complete phase is 
included for the purpose of DO loop 
optimization. 


Each loop is recorded internally as it 
is encountered in the source module. As 
each step of the optimization process pro- 
gresses, the loops are further categorized 
for ease of reference in generating the 
corresponding object code. 20 


If loops are nested, the end of each 
loop is denoted by a special reserve mark, 
which is placed at the end of the interme- 
diate notation that is being produced. The 
level of nesting is also recorded for each 
group of nested loops. This minimizes 
execution time in determining at object 
time the depth to which calculation must be 
maintained to close the first loop of the 
nest. 


A further categorization divides the 
leops into standard and non-standard. 
Standard denotes the requirements of regis- 
ter assignment for the script expression, 
and non-standard denotes the opposite. 
This method enables the compiler to make 
register assignments prior to the final 
generation of the object code. In this 
way, addresses are retrieved and inserted 
into the designated instruction without 
unnecessary repeated address calculation. 


ae ew ae oe om 
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The functions listed in Table 19 are not 
part of the standard FORTRAN language, but 
are currently supported by the (H) compil- 
er. Caution should be exercised in their 
use since continued support is not assured. 





Data Initialization Statement 


To initialize an array, the programmer 
should consider the following points: 


1. He may initialize any element of an 
array by subscripting the array name. 
Only one element is initialized; if 
any excess characters are specified, 

they are truncated and not placed into 
the next element. (Overflow from one 
element to the next is known as 
spill.) A partially filled array ele- 36 
ment is padded on the right with 
blanks. The following example illus- 
‘trates how individual array elements 
may be initialized: — 


- ARRAY (4) 


DIMENSION A(10) 
DATA A(1),A(2),A(4) ,A(5)/*ABCD', 
*ORSTUVW!, '123', '6666°7 


A(1) contains ABCD 

A(2) contains QRST 

A(3) is not initialized (note that 
spill does not occur for a sub- 
scripted array name) 

A(4) contains 123b 

A(5) contains 6666 

A(6) through A(10) are not 
initialized. 


Several consecutive elements of an 
array may be initialized with a single 
literal constant by specifying the 
array name without a subscript. Data 
spill occurs through as many elements 
as are necessary to insert the con- 
stant. If the last element initia- 
lized is only partially filled, it is 
padded on the right with blanks. (Any 
subsequent array elements are not 
initialized; that is, their contents 
are unchanged.) Truncation occurs if 
the constant exceeds the limit of the 
array. The following example illus- 
trates how several array elements may 
be initialized with one constant: 


DIMENSION ARRAY (9) 
DATA ARRAY/ 
*ABCDEFGHIJKLMNOPQRSTUVWXYZ*/ 


contains ABCD 
contains EFGH 
contains IdJKL 
contains MNOP 
contains QRST 
contains UVWX 
ARRAY(7) contains YZbb 
ARRAY(8) and ARRAY(9) are not 
initialized. 


ARRAY (1) 
ARRAY (2) 
ARRAY (3) 


ARRAY (5) 
ARRAY (6) 


Note that data spill occurs only at 
the beginning of an array. To begin 
data spill in the middle of an array, 
the EQUIVALENCE statement is used in 
the following manner: 


DIMENSION ARRAYA(10), ARRAYB(5) 
EQUIVALENCE (ARRAYA (6) , ARRAYB(1)) 
DATA ARRAYB/*ABCDEFGHIJKLMNOPORST® 7 


ARRAYA(1) through ARRAYA(5) are not 
initialized. 

ARRAYA(6) contains ABCD 

ARRAYA(7) contains EFGH 

ARRAYA(8) contains IJKL 

ARRAYA(9) contains MNOP 

ARRAYA(10) contains QRST 


The FORTRAN language requires that 


there must be a one-to-one correspon- 
dence between data elements and 
initializing constants. However, this 
correspondence may be violated when 
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Table 19. Additional Built-In Functions -- (H) Compiler 
eS ee ee ee Ne ee cs ice a ater aaa 
| | | In-Line | No. of | Type of | Type of | 
| Function | Entry Name | I | Arguments | Arguments [Function Value | 
~--~--—-~----—---------}—---—-—---- $------- 4{----—-----}-----------4---------------- 
[Logical intersection of | | | Real*4 | 
| two arguments | AND | I | 2 | or | Real #4 | 
| | | | | Integert4 | | 
~-----------------—-- ------------- -+------- +----------~ $----------- 4---------------- { 
[Logical union | | | | Real*4 | 
| of two arguments | OR | I | 2 | or | Real *4 | 
| | | | | Integer#4 | | 
}-------------- ~-------- }-------------- $------~ f---——-—-----}----------- }---------------- { 
[Logical 1"°s complement | | | | Real+4 | | 
| of argument | COMPL | I | 1 | or | Real*#4 | 
| | | | | Integer*4 | | 
SE es eee ee ee ese Ieee See cee tegeerea tee es pee eee p Seeearenree a ee ae ic ae eceatn Dia aaah eon aaa! J 


using data spill. In this case, each 
constant. should be specified immedi- 
ately after the name of the array or 
element it is to initialize. In the 
following example, an array is initia- 
lized (using data spill); then a vari- 
able is initialized. 


DIMENSION A(3) 
DATA A/*ABCDEFGHIJKL'7,X/*MNOP! / 


ABCD 
EFGH 
IJKL 
MNOP 


contains 
A(2) contains 
A(3) contains 
xX contains 


A(1) 


If each constant is not specified 
immediately after its associated array 
or variable name, overlay of spilled 
data may occur, as shown in the fol- 
lowing example: 


DIMENSION A(3) 
DATA A, X/"ABCDEFGHIJKL*,10.0/ 


contains ABCD 
A(2) contains 10.0 
A(3) contains IJKL 
X is not initialized 


A(1i) 


In this example, the second element of 
the array is overlaid by the second 
initializing constant. 


Object Time Input/Output Efficiency 


FORTRAN processing time can be appre- 
Ciably reduced by the use of programming 
techniques that result in greater data 
transfer efficiency. Such techniques are 
particularly important in executing pro- 
grams that require substantial input/output 
operations. Discussed below are four pro- 
gramming areas in which the correct choice 
of programming method can increase FORTRAN 
processing speed. 
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READ/WRITE TYPE: 


The unformatted form of 
the READ and WRITE statement provides the 
fastest data transfer rate. For most effi- 
cient processing, therefore, the unfor- 
matted form should be used to transfer 
information to or from an intermediate data 
set, a data set that is written out during 
a program, not examined by the programmer, 
and then read back for additional process- 
ing later in the program or in another pro- 
gram. Thus, for an intermediate data set, 
statement 11 in the following example is to 
be preferred to statement 9. . 


COMMON A(10), B(10) 
DIMENSION D(20) 
. EQUIVALENCE (A(1), Dw) 


9 WRITE (10, 10)A, B 
10 FORMAT (10F13.3/) 
11 WRITE (9) D 


IMPLIED DO: Array notation is far more 
efficient than the indexing capability of 
an implied DO in an I/O list. Thus, for 
efficiency, the statement WRITE (9) A 
(where A is an array name) is preferable to 
WRITE (9) (ACI) ,I=1,10). 


EQUIVALENCE STATEMENT: In FORTRAN, on 


input, data is taken from a record and 
placed into storage locations that are not 
necessarily contiguous. On output, data is 
normally gathered from diverse storage 
locations. Input/output operations, howev- 
er, can be made more efficient by storing 
and retrieving data from contiguous 
locations. 


To construct an efficient READ or WRITE 
statement for an I/O list consisting of 
many variables, use a COMMON or named COM- 
MON statement to force all the variables in 
the list to be allocated contiguous storage 
space. Next, use an EQUIVALENCE statement 
to define a single dimensioned variable 
that is the same length as the list of 
variables. Finally, use a WRITE on the 
single-dimensioned variable using array 


notation. The following example illus- 
trates this technique: 


COMMON/LISTA/A(10),B(8),C,D, I, K, L(10) 
REAL*8 B 

COMPLEX#16 LIST(10) 

EQUIVALENCE(A(1), LIST(1)) 


WRITE(9) LIST 


BACKSPACE STATEMENT: Use of the BACKSPACE 
statement is not recommended if efficient 
processing is desired. 


Data Definition Considerations 


The DCB parameter of the DD statement 
allows for the redefinition of many data 
set characteristics at execution time. 
Those specifications that most concern the 
FORTRAN programmer are discussed below. 
For a full description of the DCB parame- 


ter, see the Supervisor and Data Management 
Macro Instructions publication. 


BLKSIZE: The BLKSIZE subparaméter speci- 
fies the buffer size to be used; the maxi- 
mum is 32K. As a general rule, for tape, 
the larger the blocksize, the more effi- 
cient the processing. (Note that for tape, 
the user should not specify a blocksize of» 
less than 18 bytes. Records of less than 
18 bytes may be lost when read.) On disk, 
specifying the full track as a blocksize is 
more efficient than specifying a partial 
track. The blocksize specified should be 
large enough to hold the largest logical 
record produced. No spanning of a logical 
record into physical records will then 
occur. 


BUFNO: The BUFNO subparameter specifies 
tuc number of buffers to be used. If a 
value of 1 is specified for BUFNO, single 
buffering is provided. If either no value 
or any value other than 1 is specified, 
double. buffering, which offers an overlap 
advantage, is provided. 


RECFM: The RECFM subparameter specifies 
both record format and the use of blocking. 
When records are blocked, fewer I/0 
requests are made to a device during the 
processing of logical records; I/O proces~ 
sing speeds are thereby increased. In gen- 
eral, large blocking factors improve per- 
formance. (See “Record Format" for addi- 
tional information.) 


OPTCD: OPTCD=C requests the use of chained 
scheduling, a feature that results in the 
decrease of I/O transfer time. Chained 
scheduling is put into effect only when an 
I/O request is received before a previous 
I/O request has ended. For this reason it 


execution time: 


is difficult to predict when chained sched- 
uling will be effective. However, the use 
of chained scheduling will provide a per- 
formance improvement in the formatting that 
is done with a new direct access data set. 
For sequential data sets the user may wish 
to measure the effect before selecting 
chained scheduling for production runs. 


Direct-Access Programming 


Using direct-access I/O rather than 
sequential I/O can decrease load module 
the direct access state- 
ments in the FORTRAN IV language enable the 
programmer to retrieve a record from any 
place on the volume without reading all the 
records preceding that record in the data 
set. For efficiency, direct data sets 
should be pre~-formatted. If, however, the 
NEW subparameter is specified in the DD 
statement for the data set, a FORTRAN- 
supplied load module will format the data 
set before the program begins processing. 


Note: Direct-access I/0 statements and 
sequential I/O statements may not be used 
to process the same direct data set within 
the same FORTRAN load module. However, 
sequential I/O statements may process a 
direct data set in one load module, while 
direct access I/O statements process it in 
another. 


Not all applications are suited to 
direct-access I/O, but an application that 
uses a large table that must be held in 
external storage can use direct-access I/0 
effectively. An even better example of a 
direct-access application is a data set 
that is updated frequently. Records in the 
data set that are updated frequently are 
called master records. Records in other 
data sets used to update the master records 
are called detail records. 


Each of the master records should con- 
tain a unique identification that distin- 
quishes this record from any other master 
record. Detail records used to update the 
masters should contain an identification 
field that identifies a detail record with 
a master record. For example, astronomers 
might have assigned unique numbers to some 
stars, and they wish to collect data for 
each star on a data set. The unique number 
for each star can be used as identification 
for each master record, and any detail 
record used to update a master record for a 
star would have to contain the same number 
as the star. 


A FORTRAN program indicates which record 
to FIND, READ, or WRITE by its record posi- 
tion within the data set. The ideal situa- 
tion would be to use the unique record 
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identification as the record position. 
However, in most cases this is impractical. 
The solution to this problem is a randomiz- 
ing technique. A randomizing technigue is 
a function which operates on the identifi- 
cation field and converts it to a record 
position. For example, if 6-digit numbers 
are assigned to each star, the randomizing 
technique may truncate the last two digits 
of the number assigned to the star and use 
the remaining four digits as a record posi- 
tion. For example, star number 383320 
would be assigned position 3833. Another - 
example of a randomizing technique would be 
a mathematical operation performed on the 
identification number, such as squaring the 
identification number and truncating the 
first four digits and the last four digits 
of the result. Then the record for star 
number 383320 is assigned record position 
3422. There is no general randomizing 
technique for all sets of identification 
numbers. The programmer must devise his 
own technique for a given set of identifi- 
cation numbers. 


Two problems arise when randomizing 
techniques are used. The first problem is 
that there may be a lot of space wasted on 
the volume. The solution in this instance 
must be developed within the randomizing 
technique itself. For example, if the last 
two digits on the identification numbers 
for stars are truncated and no star numbers 
begin with zero, the first thousand record 
positions are blank. Then a step should be 
added to the randomizing technique to sub- 
tract 999 from the result of the 
truncation. 


The second problem is that more than one 
identification may randomize to the same 
record location. For example, if the last 
two digits are truncated, the stars identi- 
fied by numbers 383320, 383396, and 383352 
randomize to the same record location - 
3833. Records that randomize to the same 


Identifier Chain. 


record location are called synonyms. This 
problem can be solved by developing a dif- 
ferent randomizing technique. However, in 
some situations this is difficult, and the 
problem must be solved by chaining. 


Chaining is arranging records in a 
string by reserving an integer variable in 
each record to point to another record. 
This integer variable will contain either 
an indicator showing that there are no more 
records in this chain, or the record loca- 
tion of the next record in the chain. Rec- 
ords chained together are not adjacent to 
each other. Figure 52 shows the records 
for star numbers 383320, 383396, and 
383352. 


When records are chained, the first 
record encountered for a record position is 
written in the record position that 
resulted from randomizing the identifica- 
tion number. Any records that then ran- 
domize to that same record location must be 
written in record positions to which no 
other record identifications randomize. 

The space for these synonyms can be allo- 
cated either at the end or the beginning of 
the data set. However, this space must be 
allocated when the data set is first writ- 
ten. For example, if the randomizing tech- 
nique assigns master records to record 
locations between 1 and 9999, the program- 
mer may wish to reserve record locations 
10000 to 12000 for master records that 
become synonyms. 


The programmer must keep. a record loca- 
tion counter to keep track of the space 
assigned for synonyms. When a synonym is 
inserted in this space, the record location 
counter must be incremented. The program- 
mer should set up a dummy record in his 
data set to maintain this record location 
counter. When the direct-access data set 
is created, the record location counter 
should be set at the lower limit of the 


| | Record | 
| 383320 |Position for| 
383396 | 


Data | 
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Figure 52. 


Record Chaining 
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record positions available for synonyms 
(i.e., record location 10000 in the example 
used above). 


Also an indicator should be reserved to 
indicate to the program that the end of a 
chain has been reached. Since no record 
position is designated as 0, 0 can be used 
to indicate the end of a chain. 


Before a FORTRAN program writes a 
direct-access data set for the first time, 
the data set must be created by writing 
“skeleton records" in the space that is to 
be allocated for the direct-access data 
set. These skeleton records should be 
written by an installation-written program. 
After the skeleton records are written, the 
direct-access data set must be classified 
as OLD in the DISP parameter of the DD 
statement. However, if the skeleton rec- 
ords are not written before direct-access 
records are written by the FORTRAN program 
for the first time, a FORTRAN load module 
automatically creates the data set and 
writes the skeleton records. The program- 
mer indicates that skeleton records have 
not been written by specifying NEW in the 
DISP: parameter. When the data set is > 
opened, records are initialized as blank 
records (hexadecimal 40). If. unformatted 
WRITE statements are then encountered in 
the program, the buffer for the data set is 
initialized to binary zeroes before the 
data is placed in the buffer. If formatted 
WRITE statements are encountered, the buff- 
er is initialized to blanks. . 


Figure 53 shows a block diagram of the 
logic that can be used to write a direct 
access data set for the first time. The 
block diagram does not show any attempt to 
write skeleton records. 


Example 3 in Appendix B shows a program 
and job control statements used to update a 
direct-access data set. 


Direct-Access Programming Considerations 


In a job that creates a data set that 
will reside on a direct-access device and 
will be processed by some non-FORTRAN pro- 
gram, the DCB subparameter of the DD state- 
ment must specify DSORG = DA. This speci- 
fication causes the creation of a label 
indicating a direct-access data set. (See 
"Creating a Direct Data Set" in the IBM 
Supervisor and Data Management Services 
publication.) If the direct-access data 
set will not be processed by a non-FORTRAN 
program, the DSORG parameter need not be 
specified since the default specification, 
DSORG=PS, is the one required. 
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Figure 53. 


Space must be allocated in the SPACE 
parameter of the DD statement for a data 
set written on a direct-access volume. For 
direct-access data sets, the space allo- 
cated in the SPACE parameter should be con- 
sistent with the record length and number 
of records specified in the DEFINE FILE 
statement in the FORTRAN program. For 
example, in the DEFINE FILE statement 


DEFINE FILE 8(1000,40,E,1) 
the number of records is specified as 1000 


and the record length is specified as 40. 
When this program is executed, the DD 
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statement for this data set should contain 
the SPACE parameter 


SPACE=(40, (1000) ) 


indicating that space is allocated for 1000 
records, with 40 bytes for each record. 


The DEFINE FILE statement for a data set 
must be in a program unit that will not be 
overlaid, but does not have to be in the 
same program unit in which I/O operations 
occur. (If the DEFINE FILF is coded in a 
root segment, there is little chance of 
error.) For example, the DEFINE FILE 
statement can be given in a main program 
with a subprogram performing the I/O opera- 
tions on the data set. However, if an 
associated variable defined in the main 
program is to be used by a subprogram, it 
must be passed to the subprogram in COMMON. 
Since an associated variable is updated by 
I/O operations, the subprogram cannot get 
to the updated value to make use of it in 
its operations unless the associated vari- 
able is in COMMON. 


An associated variable should not be 
passed as a parameter between a main pro- 
gram and its subprograms because the asso- 
ciated variable is not passed in the same 
way that other variables are passed. Other 
variables reflect the result of any opera- 
tions performed on them in the subprogram. 
An associated variable (if passed as a 
parameter) is not changed by operations 
performed on it in the subprogranm. 


The FIND statement permits record re- 
trieval to occur concurrently with computa- 
tion or I/O operations performed on 
different data sets. By using the FIND 
statement, load module execution time can 
be decreased. For example, the statements 


10 A=SOQRT(X) 


52  -E=ALPHA+BETA*SINCY) 
76 READ(8"101)X,Y 


are inefficient because computations are 
performed between statements 10 and 52 and 
an I/O operation is performed on another 
data set while record number 101 could be 
retrieved. If the following statements are 
substituted, the execution of this module 
becomes more efficient because record num- 
ber 101 is retrieved during computation and 
I/O operations on other data sets. 
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5 FIND(8*101) 
10 A=SORT(X) 


52 E=ALPHA+BETA*SIN(Y) 
65 WRITE(9)A,B,C,D,E 
76 READ(8°101)X,Y 


niet, | 


e The maximum level of nesting for DO 
loops and implied DOs is 25. 


e® The maximum number of expressions that 
can be nested is 100. 


e The maximum level of nested references 
in an arithmetic statement function 
definition to another statement func- 
tion or a function subprogram is 25. 


e The maximum number of source cards for 
one compilation is dependent upon the 
amount of storage available to the com- 
piler. A 400 card program requires 
‘approximately 90K bytes in PCP or MFT 

systems and 100K bytes in MVT systems. 
However, depending upon the complexity 
of a program, more storage may be 
required. For example, a program con- 
taining a high incidence of input/ 
output statements generates more 
internal code, resulting in greater 
storage size requirements. 


e The maximum number of comment cards. 
between two statements is 30. The 
maximum number of continuation cards | 
between two statements is 19. There is 
no restriction on the number of comment 
cares at the beqinnang of a deck. 


e The repetition field (a) for format 
codes in a FORMAT statement, if pres- 
ent, must be an unsigned integer con- 
stant less than 256. This restriction 
also applies to execution-time formats. 


e The FORMAT statement specification w, 
indicating the number of characters of 
data in the field, must be an unsigned 
integer constant less than 256. This 
restriction also. applies to execution 
time formats. 


e In literal constants in the source pro- 
gram, any valid card code is permiss- 
ible, except a 12-11-0-7-8-9 punch. 


C97 4q 
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H ONLY| COMPILER RESTRICTIONS e The maximum number of implied DOs per 
L------ 4 statement is 20. 
°* The maximum level of nesting for DO e The maximum number of characters 
loops is 25. allowed in a literal constant is 255. 
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e The maximum number of characters 
allowed in a PAUSE message is 255. 


e The maximum number of nested references 
to another statement function within a 
statement function definition is 50; 
the maximum number of times a statement 
function may be nested is 50. 


e The repetition field (a) for FORMAT 
codes in a FORMAT statement, if pre- 
sent, must be an unsigned integer con- 
stant less than 256. This restriction 
also applies to execution-time formats. 


e The FORMAT statement specification w, 
indicating the number of characters of 
data in the field, must be an unsigned 
integer constant less than 256 This 
restriction also applies to execution- 
time formats. 


e The debug facility is not supported. 


e The maximum number of arguments in a 
CALL statement is 196. If an argument 
has a variable subscript, that = 
is counted as two arguments. 


e The maximum number of arguments in 
unique parameter lists in an entire 
program is dependent on the size of the 
compiler, with a maximum of 1024. 


-e@ The maximum number of arguments in a 
Statement Function Definition is 20. 


(If any of the three preceding restric- 
tions is violated, message IEK550I- 
“PUSHDOWN, ADCON, OR ASF ARGUMENT TABLE 
EXCEEDED" - is issued.) 


e The maximum number of literal constants 
and arguments in unique parameter lists 
contained in an entire program is 
approximately 990. (If this restric- 
tion is violated, message IEK500I- 
"SOURCE PROGRAM IS TOO LARGE*- is 
issued. Either the program must be 
segmented or the number of literal con- 
stants and arguments must be reduced.) 


Note: In this version of the compiler, 
Statement Functions are expanded in-line. 


LIBRARY CONSIDERATIONS 


The FORTRAN library is a group of sub- 
programs residing in the partitioned data. 
set SYS1.FORTLIB. For a detailed descrip- 
tion of the FORTRAN library, see the 
FORTRAN IV Library Subprograms publication, 
Form GC28-6818. A programmer can change 
the subprograms in the library; he can add, 
delete, or substitute library subprograms; 
or he can create his own library. These 
topics are discussed in detail in the 
Utilities publication, Form GC28-6586. 


When the FORTRAN library is changed for 
maintenance or to provide additional fea- 
tures, precompiled programs in a user 
library require special attention to bene- 
fit from the changed library modules. This 
can be accomplished by using the linkage 
edit facilities to include the current 
library modules, and storing the resultant 
load module back into the FORTRAN library. 
When the facilities of the linkage editor 
are used to provide an overlay structure or 
to replace a single control section, care 
should be taken not to mix FORTRAN library 
modules that are at diverse operating sys- 
tem levels. 


This requirement to maintain all library 
routines at the same level also applies to 
IHCADJST. This module is dynamically 
loaded from the system link library when a 
specification exception occurs. Therefore, 
even though a FORTRAN program is in an 
executable form, if it is at a previous 
release level, it will still LOAD the cur- 
rent IHCADJST with which it may be 
incompatible. 





DD STATEMENT CONSIDERATIONS 


Several DD statement parameters and sub- 
parameters are provided for I/O optimiza- 
tion (see Figure 54). Other DD statement © 
parameters are discussed in "Job Control 
Language" and “Creating Data Sets." 


Channel Optimization 


The SEP parameter indicates that I/O | 
operations for specified data sets are to 
use separate channels (channel separation), 
if possible. The I/O operations for the 
data set, defined by the DD statement in 
which 


SEP= (ddname[(, ddname]...) 
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appears, are assigned to a channel dif- 
ferent from those assigned to the I/0 
operations for data sets defined by the DD 
statements “ddname". Assigning data sets 
whose I/O operations occur at the same time 
to different channels increases the speed 
of I/O operations. 


I/O Device Optimization 


UNIT subparameters can be specified for 
device optimization. 


VQLUME MOUNTING AND DEVICE SEPARATION: 


on] 
ONrT=(name{.?}l; DEFER} 
(, SEP=(ddname[, ddname]...)1) 


can be specified for volume mounting and 
device separation. The “name™ and number 
of units are discussed in the section "Data 
Definition Statement". 


DEFER 

indicates that the volume(s) for the. 
data set need not be mounted until 
needed. The control program notifies 
the operator when to mount the volume. 
Deferred mounting cannot be specified 
for a new output data set on a direct- 
access device. 


SEP= (ddname[, ddname]...) 
is. used when a data set is not 


assigned to the same access arms on 
direct-access devices as the data sets 
identified by the list of ddnames. . 
This subparameter is used to decrease 
access time for data sets and is 
meaningful only for direct-access 
devices. The operating system pro- 
vides device separation if possible, 
but ignores the SEP subparameter if an 
insufficient number of access arms is 
available. The SEP subparameter in 
the UNIT parameter provides for device 
separation, while the SEP parameter 
provides for channel separation. 


DEVICE AFFINITY: The use of the same. 
device by data sets is specified by: 


UNI T=AFF=ddname 


The data set defined by the DD statement in 
which this UNIT parameter appears uses the 
same device as the data set defined by the 
DD statement “ddname" in the current ‘job 
step. 


Note: Channel separation and affinity 
requests are ignored if the system's auto- 
matic volume recognition feature is used. 


Direct-Access Space Optimization 


The SPACE parameter can be used to spec- 
ify space beginning at a designated track 
address on a direct-access volume. The 


ee OS ee Smee ae er a ee a ee a a a a ee ae See ee ae a ee ee a ee 


SEP= (ddname({, ddname]...1+) 2 


uwrr= |aPF=adname 


| SPACE=(ABSTR, (quantity, beginning-address) [,directory-quantity]) 


CYL 





nh 
sunnsoc=(| er 
average-record-length 
ddname 


| 

| 

| 

| 

| 

{ 

| spur (n| 
a 
| 

| 

| 

| 

[ 

| 


| positional subparameters. 


|°If only “name" is specified, the delimiting parentheses may be omitted. 
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(name [, {n]P}311[, DEFER] [, SEP=(ddname[, ddname]...4) 2]* wort 


| average-record-length , (primary-quanti ty (, secondary-quantity?) |) 
|, (orimary-quantétyt, secondary-quantity 


i ——€,. << ) 

stepname. procstep. ddname 

|*The maximum number of repetitions allowed is seven. 

|2If only one “ddname" is specified, the delimiting parentheses may be omitted. 

|2If neither “n" nor “P" is specified, 1 is assumed. 
|“This subparameter is applicable only for direct-access 
|°This subparameter is the only keyword subparameter shown in this figure. All the 

| remaining subparameters shown in the UNIT, SPACE, SPLIT, and SUBALLOC parameters are 


devices. 


DD Statement Parameters for Optimization 


SPLIT or SUBALLOC parameters may be speci- 
fied instead of SPACE to split the use of 
cylinders among data sets on a direct 
access volume or to use space specified for 
another data set which it did not use. 

(The other SPACE parameter is discussed in 
"Creating Data Sets.”) 


SPACE BEGINNING AT A SPECIFIED ADDRESS: 


SPACE=(ABSTR, (quantity, beginning-address) 

(,directory-quantity]) 
specifies space beginning at a partic- 
ular track address on a direct access 
volume. The “quantity” is the number 
of tracks allocated to the data set. 
The “beginning address" is the rela- 
tive track address on a direct access 
volume where the space begins. If the 
data set is a new partitioned data set 
(PDS) the “directory-quantity" speci- 
fies the number of 256-byte blocks 
that are allocated to the directory of 
the data set. 


SPLITTING THE USE OF CYLINDERS AMONG DATA 
SETS: If several data sets use the same 
direct-access volume in a job step, proc- 
ssing time can be saved by splitting the 
use of cylinders among the data sets. 
Splitting cylinders eliminates seek opera- 
tions on separate cylinders for different 
data sets. Seek operations are measured in 
milliseconds, while the data transfer | is 
measured in microseconds. 





,cYL 
spLat= (al J aoe iad 


, (primary-quantity . 
{ secondary-quantity1) |) 


is substituted for the SPACE parameter when 
the use of cylinders is split. If CYL is 
specified, "n" indicates the number of 
tracks per cylinder to be used for this 
data set. If “average record length" is 
specified, “"n" indicates the percentage of 
tracks per cylinder used for this data set. 
The remaining subparameters are the same as 
those specified for SPACE in “Creating Data 
Sets." 


More than one DD statement in a step: 
will use the SPLIT parameter. However, 
only the first DD statement specifies all 
the subparameters; the remaining DD state- 
ments need only specify "n". For example, 


//STEP4 EXEC PGM=TESTFI 
//¥TO8F001 DD SPLIT=(45, 800, (100, 25)) 


//¥T17F001 DD SPLIT=(35) 


//¥T23F001 DD SPLIT=(20) 


ACCESSING UNUSED SPACE: Data sets in pre- 
vious steps may not have used all the space 
allocated to them in a DD statement. The 
SUBALLOC parameter may be substituted for 
the SPACE parameter to permit a new data 
set to use this unused space. 


TRK 
SUBALLOC= (< CYL 
average-record-length 


(,primary-quantity 
{,secondary-quantity] 


{,directory-quantity]) 


ddname 
stepname. ddname ie 
(Ustepname. procstep. ddname 


The data set from which unused space is 
taken is defined in the DD statement 
"ddname", which appears in the step “step- 
name." (The step must be in the current 
job.) The other subparameters specified in 
the SUBALLOC parameter are the same as the 
subparameters described for SPACE in 
"Creating Data Sets." 
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SYSTEM OUTPUT 


The compilers, the linkage editor, and 
load modules produce aids which may be used 
to document and debug programs. This sec- 
tion describes the listings, maps, card 
decks, and error messages produced by these 
components of the operating system. 


COMPILER OUTPUT 





Both the FORTRAN IV (G) and the FORTRAN 
IV (H) compilers can generate, depending 
upon user-specified options, a listing of 
source statements, a table of source module 
names, an object module listing, and an 
object module card deck. Additionally, the 
(H) compiler can generate a structured 
listing of source statements, and a table 
of source module labels. 


Source module diagnostic messages are 
also produced during compilation. 


Source Listing 


If the SOURCE option of the PARM paran- 
eter of the EXEC statement is specified, 
the source listing is written in the data 
set specified by the SYSPRINT DD statement. 
An example of a source program listing is 
shown in Figure 55. This printout is the 
source listing of the sample program shown 
in Figure 56. (This program will be used 
throughout the remainder of this publica- 
tion for purposes of illustration.) 


.. PRIME NUMBER PROBLEM 
100 WRITE (6,8) 


Storage Map 


If the MAP option of the PARM parameter 
of the EXEC statement is specified, a table 
of names, which appear (or are implied) in 
the source module, is written in the data 
set specified by the SYSPRINT DD statement. 
The storage map produced differs according 
to the compiler used. 


| Seances: 1 

|G ONLY| 
L------4 A table is generated for each of 
seven classifications of variables used in 
the source module. Each table contains the 
names and locations of variables used in 
that particular context. The classifica- 
tions are as follows: 


e COMMON variables 

® EQUIVALENCE variables 

e Scalar varianles: 

e Array variables 

e subprograms called 

e NAMELIST variables 

e FORMAT statements 

Separate maps are produced for each 
classification, with the appropriate head- 


ing preceding the data. The variable 
names, statement labels or subprogram name | 


6 FORMAT (52H FOLLOWING 1S A LIST GF PRIME NUMBERS FROM 1 TO 1000/7 


119X,LHL/19X51H2719% 5 1H3) 
10). 125 
3. A=1 
102 A=SQRT(A) 
103 J=A 
104 DU 1 K=3eJe2 
105 L=I/K 
106 IFCLSK-1L) 19294 
1 CONTINUE 
107 WRITE (oe5)1 
5 FORMAT (120) 
2 I=l42 
106 IF(1000-1)7,4%93 
& WRITE (629) 


FORMAT (14H PROGRAM ERROR) 


WRITE (6,6) 


FORMAT (31H THIS IS THE END UF THE PROGRAM) 


$Top 
END 


Figure 55. Source Module Listing 
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FORTRAN Coding Form 


IBM | } 
am SAMPLE PROGRAM ae. = cs cs 


ee an iN 
sollte aed 
ers ee Ey SPS as Os REE 
Tih ‘ apa Cae | . 1 
LN B ee PROBLE oe ee Pe a 7 
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78. 9 10 FE 1213 1415 18 17 BP 20 2h 22 2324 95 26 27 2B WP WW 32 3-35 36 37 3839 40 4} 42 AT 44 45 46 47 4B AF 50 5152 53 54-55 S657 58 5% SO 61 62 63 64 65 66 67° 68 6? 70 71 72473 74 75 76 77 78 79 80 
°A wenderd card form, 10M electeo 888157, 56 available for punching statements from this form 








Figure 56. Sample FORTRAN IV Program 


SUBPROGRAMS CALLED 


SYMBOL == LOCATION SYMBOL LOCATION SYMBOL LOCATION = SYMBOL —s LOCATION SYMBOL «LOCATION 
TacnMs BC SORT co 
SCALAR MAP 
SYMBOL —- LOCATION SYMBOL LOCATION SYMBOL —- LOCATION SYMBOL = LOCATION SYMBOL LOCATION 
I cB A cc J Do K D4 L pe 
FORMAT STATEMENT MAP . 
SYMBOL LOCATION SYMBOL —- LOCATION SYMBOL LOCATION SYMBOL = LOCATION SYMBOL «LOCATION 


8 - BC 5 126 9g 124 6 13C 


Figure 57. Storage Map -- (G) Compiler 


are arranged across the page; six toa 2. The second line shows headings which 
line. However, storage maps of variables identify names used in the program. 
not used in the source module are not These headings and the information 
produced. they describe are as follows; 

Figure 57 is an example of a storage map ae NAME lists names of all variables, 
produced by the (G) compiler for the sample statement functions, subprograms, 
program in Figure 56. and internal functions. 

seoe- b. TAG lists variable and name use 

[x ONLY| codes. Variable use codes are as 
crcere 4 Figure 58 is an example of a follows: 

SeeE sae map produced by the (H) compiier 
for the program in Figure 56. The figure A indicates that the variable was 
displays the following items: used as an argument; i.e., it 


appeared in a parameter list 

1. The first line shows the name of the 
program (MAIN) and the program size in F indicates that the variable 
hexadecimal (00027C). appeared on the right of the 
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equal sign: i.e., its value of any equivalences made for the block. 


was used at some time The map for each COMMON block contains the 
same type of information as for the main. 
S indicates that the variable program. The map for the equivalences. 
appeared on the left of an lists the name of each variable along with 
equal sign; i.e., its value was its displacement (offset) from ‘the begin- 
stored at some time. ning of the common block. 


Name use codes are as follows: 
C indicates variables in COMMON pron 


E indicates variables that appear l------ 
in an EQUIVALENCE statement 
In addition to the storage map, specifi- 
IF indicates an internal function. cation of the MAP option for the (H) com- 
piler produces a table of statement numbers 


NR indicates variables not known as a label map. The statement. num- 

referred to ‘bers that appear in the source module are 
written in the data set specified by the 

SF indicates arithmetic statement SYSPRINT DD statement. This table 
functions includes: 

XF indicates subprograms 1. The statement number of each source 

label. . 

XR indicates variables, arrays, or 
subprograms that are referenced 2. The relative address assigned to each - 
by name label. 
Note that the name code SF. 3. The symbol ‘NR' next to each source 
should not be confused with the label that is not referenced. 
variable codes S and F. Codes 
S and F are positioned left of Figure 59 shows a portion of the label. 
the heading TAG whereas the map produced by the (H) compiler for the 
name identifier SF appears program in Figure 56. 


under the heading (actually, 

beginning under the letter G; 

see the placement of codes for Object Module Listing 
the variable I and the subpro- 
gram SORT in Figure 58). 

If the LIST option of the PARM parameter 


c. Type identifies the type and of the EXEC statement is specified, the 
length of each variable. object module listing is written in the 
- data set specified by the SYSPRINT DD 
d. ADD identifies the relative statement. The listing is in pseudo- 
address assigned to each name. assembler language format; i.e., all 
(All functions and subroutines instructions are not valid assembler lan- 
have a relative address of 00000.) guage instructions. 
The FORTRAN (H) compiler also produces a The listing produced differs according 


map of each COMMON block, followed by a map to the compiler used. 


MAIN / SIZE OF PROGRAM O0027TC HEXADECIMAL BYTES 


NAME TAG TYPE ADO. NAME TAG TYFE ADD. NAME TAG TYPE. AvOd. NAME TAG TYPE ADU. 
“A SFA R¥4 000120 1 SF 1*4 000124 J SF 1*4 000128 K SF 14 36012C 
us 1*4@ 000130: SQRT: XF R*4 000000 IBCOM= F XF I*4 000000 : 





Figure 58. Storage Map -~- (H) Compiler 
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OOACCB NR 
COAEEO 
OOB118 


CCADES 
CCAEFC 
cCB120 
CCB54C 
CCB67E 


OCB4FO 
OCB5F8 





Figure 59. Label Map -- (H) Compiler 


 seamicaaeadaaacatia | 


|G ONLY] 
l---—---J The object module listing is 
arranged in column format, with headings, 


as follows: 


Column 1: LOCATION--The address in hexa- 
decimal of the instruction. 

Column 2: STA NUM--The source program | 
statement numbers of all FOR- 
TRAN executable statements. 

Column 3; LABEL--Source labels and compet 
er generated labels. 

Column 4 

and 

Column 5: OP and OPERAND--The actual 
instruction. 

Column 6: BCD OPERAND--Significant items 


referred to in the correspond- 
ing instruction, e.g., entry 
points, labels, variables, and 
constants. 


Figure 60 shows an object module listing 
produced for the program in Figure 56. 


OOAE10 NR 
OOAFILE 
00B41i2 
008588 
00 B6A0 


OOAEL4 NR 
008106 
008450 
00B5D0 
008778 


The (H) compiler object module 
etiae is arranged in column format as 
follows: 


Column 1: The address (in hexadecimal) of 


the instruction. 


Column 2: The assembly format (in hexadec- 
imal) of the instruction. 


Column 3: Source labels and compiler 
generated labels (compiler 
generated labels contain six 
digits). 

Column 4: The actual instruction. 

Column 5: Significant items referred to in 


the corresponding instruction, 
@ege, entry points, labels, 
variables, constants, and tem- 
poraries (.yxx where y is S, T, 
‘or Q and xx is two digits). 


_.. Figure 61 shows an object module listing 
produced for the program in Figure 56. 


Object Module Card Deck 


If the DECK option of the PARM parameter 
of the EXEC statement is specified, an 
object module card deck is produced. This 
deck is made up of four types of cards -- 
TXT, RLD, ESD, and END. A functional 


description of these cards is given in the 


following paragraphs. 
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LOCATION 
000000 
000004 
000008 
00000C 
000010 
000014 
000016 
OOOOLA 
OOOOLE 
000022 
000024 
000028 
00002C 
000148 
OOOLAC 
0001B0 
0001B4 
000188 
0001BA 
0001BE 
0001CO 
9001C2 
0001C6 
0001C8 
OOO1CC 
000100 
000104. 
000108 
OOO1LDC 
0001E0 
OOO1LE4 
OOO1E8 
OOOLEA 
OOOLEE 
OOO1LF2 
OOOLF6 
Oo01Fs 
OOOLFA 
OOO1FE 
000200 
900204 
000208 
00020 
00020E 
000212 
000214 
000218 
00021C 
000220 
000224 
000226 
000228 
00022C 

-00022E 


000232. 


(000236. 


00023A.. 


00023E_ 
(000242 
000246 
00024A 
00024E 
000252 
000256 
000258 
00025C 
00025E 
000262 
000264 
000268 
00026C 
000270 
000274 


Figure 60. 
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STA NUM LABEL 
A36 
A20 
l 100 
3 101 
4 3 
5 102 
6 103 
7 104 
L44 
8 105 
9 106 
10 1 


op 


STM 


BCR 


SRDA 
D 

ST 

L 

M 

S 
LTR 
L 
BCR 
t 
BCR 
L 

L 

LA 

L 
BXLE 


Object Module Listing -- 


OPERAND 
15412(0,15) 
0604C1C9 
05404040 
14, 12,1213) 
2293240115) 
4,13 
13,36(0,15) 
13,8(0,4) 
30420(13) 
15.2 
00000000 
00000000 
00000000 
13,4(0,13) 
14.12(0,13) 
2212,28113) 
12¢13),255 
15,14 
15.9140(0,13) 
12,13 
1354 
14,64(0,15) 
13,12 
15,140(0,13) 
14,400,715) 
00000006 
oo000oDC 
14,16(0,15) 
0,360 10,13) 
“O915210,13) 
Ov 152(0,13) 
1,0 : 
1,324(0,13) 
0,320(0;13) 
-- .09304(0913). 
0,0 
14,9 
11:606,14) 
0,0 
0+15610,13) 
12148(0,13} 
15,144(0,13) 
14,15 
0,15610,13) 
0,0 
09156(00,13) 
0, 336(0,13) 
02 328(0,13) 
0.332{0,13) 
0,0 
14,0 
11610514) 
0:0 
0,4160(0,13) 
0+364(0,13) 
Os 16410,13) 
0,152(0,13) 
03320) 
0216410,13) 
1,168(0,13) 
19168(0,.13) 
0+16410,13) 
12152(0,13) 
lel 
14,104{0;13) 
6,14 
14,108(0,13) 
2914 | 
0¢16410,13) 
1,116(0,13) 
202(0,0) 
34160{0,13) 
O.2-001) 


BCD OGPERAND 


Ae 
A20 
A36 


(BCOM# 


1BCOM# 


SQRT 


Kee K me KK 


N 


L44 


(G) Compiler (Part 1 of 2) 


000278 
0002 7C 
000280 
000284 
0002 88 
0002 8C 
000290 
000294 
000298 
00029C 
0002A0 
0002 A4 
0002A8 
OOO02AA 
0002 AE 
000280 
000284 
000286 
0002BA 
0002BC 
0002C0 
0002C4 
- 0002C8 


0002CC. 


0002D0 
000204 
- 000208 
0002DC 
0002E0 
QO02ZE4 
O002E8 
O002EC 


*OPTIONS IN EFFECT*® 
*OPTIONS IN EFFECT*® 


*STATISTICS*® 


ll 107 L IBCOM# 
BAL 1424(0,15) 
DC 00000006 
oc 00000126 
BAL 14,8(0,15) 
DC 04500098 
BAL 14,1600,15) 
13 2 L 0+15210,13) I 
A 0-368(0,13} 
ST 04152(0,13) I 
14 108 L 0937210513) 
S 0415210513) I 
LTR 0,0 
t 14,1126,13) 7 
BCR 4,14 
L 14,96(0,13) 3 
BCR 2914 
15 4 L 15,1400, 13) IBCOM# 
BCR 0,0 
BAL 142440,15) 
DC 00000006 
oc OQO0O00L2ZA 
BAL 1491600715) 
17 7 t 15914010,13) 1scom# 
BAL 14¢410,15) 
pc 00000006 
bc Q000013C 
BAL 14,16{0,15) 
19 109 L 15414010113) T8Com# 
BAL 14,5210,15) 
oc “05404040 
oc 40FO. ; 
END sg 
NOID ,EBCDIC, SOURCE sL IST» NODECKsLOAD, NOMAP 
NAME = MAIN LINECNT =~ 50° 
SOURCE STATEMENTS 209 PROGRAM SIZE = 750 
*STATISTICS* NO DIAGNOSTICS GENERATED |. 


Figure 60. 


154140(0,13) 





Object Module Listing -- (G) Compiler (Part 2 of 2) 
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00c000 


000004 
oa0cos 
oocooc 
000010 
000014 
00c01s 
ooce1c 


TEMPORARY FOR FLOAT/F IX 


CONSTANTS 


000168 
oo010c 
000110 
000114 
000118 
00011C 


47 FO F 00C 


07404040 
40404040 

90 EC D 00C 
98 23 F 020 
50 30 3 gos 
50 00 3 604 
Oo7 F2 


4E 000000 
00000000 
00c00002 
00000003 
00000005 
000003E8 


ADCONS FOR VARIABLES AND CONSTANTS 
ADCONS FOR EXTERNAL REFERENCES 
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000138 
00033¢ 
000148 
O8L14C 
000150 
060154 
0060158 
OGGLS5C 
060166 
060164 
000168 
O00G16C 
060170 
OCult4 
000178 
ooulTc 
OOC1TE 
OOULB2 
066186 
OOC1BA 
OSO1BE 
000190 
000194 
000193 
O8019C 
OGO1AD 
OO01A4 
O8G1A6 
OGC1AA 
OOOLAE 
O8C1B2 
OOuLB4 
OOC1B8 
OGO1LBE 
oeclco 
0001C4 
oeolice 
QGO1LCA 
oe01GC 
080100 
000102 
006106 
oecibs 
- O001DC 
00C1iDE 
O00C1E2 
OOCLE4 
OOciES 
OGCLEC 
OeCclFe 
OGOLF4 
Q@CLES 
OUCLEC 
060200 
000204 
066200 
06U20C 
000210 
oec2h2 
006216 
000218 
00GZ1C 
0002290 
000224 
000228 
00U22C 
060230 
000234 
000238 
0062 3C 
006240 
Q0G244 
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00000000 
00000000 
41 40 0 002 
41 96 0 083 
41 AO 0 005 
41 860 0 3&8 
58 FO D 68C 
45 €0 F 064 
0800006 
00ceca2s 
45 €0.F 810 


50 AG D 074 
58 00 D 0Z4 
68 0C D 054 
68 00 D 950 
iz 00 

47 40 BD GbE 
58 00.0 054 
6A 00 D 050 
47 £0 D O&a 
16 oC 

56 OC D 054 
6B 00 D 650 
7G 00 D 070 
41 10 D0 04C 
58 FC D 088 
05 €F 

76 06 D 090 
78 6U BD O90 
70 00 D 070 
2B 00 

78 0D D 070 
6E 06 D 058 
60 00 D 050 
58 50 D 064 
47 a0 D ILA 
12 55 

18 69 

58 710 D 0% 
18 07 

BE 06 0 920 
1D 06 

58 10 D0 980 
18 36 

5C 20 0 980 
18 37 

4¥ 80 D 15¢ 
47 20 D 178 
87 64 D 140 
58 FO D 08C 
45 EQ F 004 
0ec00006 
oecoeo72 

45 £0 F 908 
04500074 

45 EG F 010 
58 00 0 N14 
1A 04 


50 00 D OT4 


OT4+ 
18¢ 
13e 
oe 0 
osc 
004 


+ 

~ 

N 

a 
n"SOevoece 


cocosdes 
aQ0gCco00 TS 
45 EQ F Mid 
§6 FO D 08¢ 
45.E0 F 604 
gecesods 


MAIN 


100000 


100 


LOl 


102 


103 


104 
105 


106 


107 


108 


oc 


BC 
oc 
oc 
oc 


1551210215) 


XL4* 40404040! 
XL4* 40404040° 
14212,12¢13) 
293932415) 
39813) 
1344(0,3) 
1522 


XL4@*4E000000* 
XL4 "00000000! 
XL4*00000002° 
XL4*00000003* 
XL4*00000005* 
XL4*Q00003E8* 


XL4* 00000000! 
XL4*'00000000' 
Se 2i 0, 0) 
9s BE Qs 0} 
10, 54 G, 0) 
81000 0, 0) 
156 1464 0,13) 
l4s 44 G,15) 
X£4" 006008006! 
XL4*00000628' 
14s 164 0,15) 
10, Liol 0,13) 
Os 1161 0,13) 
Or 884 0,13) 
O, sot 0,13) 
Oe 0 
4s 2226 0,13) 
QO, 64£-0,13) 
GO, 80 G,13) 
15s. 2321. 0,13) 
Q, Oo 
O» 84 0,13) 
Os 80 0,13) 
Os» 1124 9,133 


Ay Yel 0,13) 
‘15~ 136 0,13) 


14315 fe 

Os 1444 0,13) 
Oe 1448 6,13) 
Oe 2124 0,13) 
OQ, O-- 


Oe 112 0,13) 


Os 884 0,13) 
Oe 804 0,13) 
5, 841 G,13) 
10s 2824 0,13) 
5, 5 

és 9 

7» Liet 0,13) 
0, 7 

Qe 324 G, 0) 


6 
le 1284 0,13) 
Be 6 
2s 1284 0,13) 
307 
Be 3481 6,13) 
22 376f 0,13) 
Ss 2881 4,13) 
15, 1404 0,13) 
14s 4( 0,15) 
Xi. *QO0000G06' 
X&44'Q0000072° 
14s BC 0,15) 
XL4*'04500074! 
l4e  16( 0,15) 
Oe 1164 0,13) 
Qe 4 
Oe Lloi 6,13) 
2s 8 
22 1164 9,13) 
4« 3961 0,13) 
Be 3764 O,13) 
20 192U 0213) 
155 140! G,13) 
14s 44. 0915) 
XL4* 00000006! 
XL4*°00000676! 
142 16t 0,15) 
15% 140 0,13} 
14s 4 0,15) 
Ki4* 00000006" 


SQRT 
1sCOM= 
2 

3 

5 

3€8 
JBCOM= 


G+" 


SQRT 


e700 
oF00 


~_ 


We wy om 


18 COM= 


+3 


T8COM= 


006248 oevecass 
004240 45 EG F 010 


0t6250 58 FO D N8C 109 


000254 45 EC F 034 

O06U258 05 

000259 48 

OCG25A 40 

ObC253. 40 

oec2sc. 4C 

O00025D FO 
ADDRESS GF EPILOGUE 

O0cC25E 58 FC D NBC 

O0CG262 45 EQ F 034 

080266 0540 

000268 404040F0 
ADDRESS OF PROLOGUE 

OCG26E 58 FO 3 NBC 

000272 45 EO F 040 

O00G2T6 18 D3 

000278 47 FU D N98 
ADCON FOR PROLOGUE 

000G20 Q600026E 
ADCON FOR SAVE AREA 

O0GG024 o000C0B0 
ALCON FOR EPILOGUE 

O0CCBO O00002Z5E 
ADCONS FOR PARAMETER LISTS 

OOOCFC 80000120 
ADCONS FOR TEMPORARIES 

000140 o00ce0000 

Q001L44 o0oc00000 
ADCONS FOR 3 BLOCK LABELS 


Bec 
BAL 


BAL 
BC 
pc 
oc 


Oc 
DC 


BAL 
oC 
bc 


BAL 
LR 
BC 
DC 
pc 


bc 


oc 


oc 
pec 


XL4"00000048! 


14, 164 0,15) 
15s 1401 0,13) 
l4e 524 0715) 
XiL1*00000005' 
XL1* 00000040! 
XL1'00000040! 
XL1*00000040° 
XL1'00000040° 
XLL*OQQ000F0! 


155 1404 0,13) 
1456 52 0,15) 
XL2°40400540! 
XL4*404040F0* 
15-5 1404 GO, 3) 
14, 64( 0,15) 
13, 3 

15_ 152 0,13) 
XL4"Q000026E! 
XL4'90000080 


XL4"QQ00025E! 


XL4*80000120* 


XL4*00000000' 
XL4*Q0000000* 


G+Q 


IBCOM= 


IBCOM= 


18CoM= 





Figure 61. Object Module Listing -~ (H) Compiler (Part 2 of 2) 


OBJECT MODULE CARDS: Every card in the 
object module deck contains a 12-2-9 punch 
in column 1 and an identifier in columns 2 
through 4. The identifier consists of the 
characters ESD, RLD, TXT or END. The first 
four characters of the name of the program 
are placed in columns 73 through 76 with 
the sequence number of the card in columns 
77 through 80. 


ESD Card: Four types of ESD cards are 
generated as follows: 


ESD, type 0 - contains the name of the 
program and indicates the | 
beginning of the object 
module. 


ESD, type 1 - contains the entry point 
name corresponding to an 
ENTRY statement in a 
subprogram. 


ESD, type 2 - contains the names of sub- 
programs referred to in the 
source module by CALL 
statements, EXTERNAL state- 
ments, explicit function 
references, and implicit 
function references. 


ESD, type 5 - contains information about 
each COMMON block. 


The number 0, 1, 2, or 5 is placed in card 
column 25. ' 


RLD Card: An RLD card is generated for 
external references indicated in the ESD, 
type 2 cards. To complete external 
references, the linkage editor matches the 
addresses in the RLD card with external 
symbols in the ESD card. When external 
references are resolved, the storage at the 
address indicated in the RLD card contains 
the address assigned to the subprogram 
indicated in the ESD, type 2 card. RLD 
cards are also generated for a branch list 
produced for statement numbers. 


TXT Card: The TXT card contains the con- 
stants and variables used by the programmer 
in his source module, any constants and 
variables generated by the compiler, coded 
information for FORMAT statements, and the 
machine instructions generated by the con- 
piler from the source module. 


END Card: One END card is generated for 
each compiled source module. This card 
indicates the end of the object module to 
the linkage editor, the relative location 
of the main entry point, and the length (in 
bytes) of the object module. 


OBJECT MODULE DECK STRUCTURE: Because of 

implementation, object module deck struc- 

tures differ by compiler. Figure 62 shows 
the deck structure for the FORTRAN IV (G) 

compiler; Figure 63 shows the deck struc~ 

ture for the (H) compiler. 
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a 

TXT Cards for 
Temp Storage 
and Constants 









RLD Cards for : 


the Object 
Module 










TXT Cards for 
FORMAT 
Statements 






7 
TXT Cards for 
Address 
Constants 









"TXT Cards for 
Literal 
Constants 













TXT Cards for 
Subprogram 
Addresses 










(7 

TXT Cards for 
NAMELIST 
Tables 













I 
TXT Cards for 

Subprogram 

Argument Lists 















ESD, Type 2 
External 
References 










a 
TXT Cards for 
the BRANCH 
Table 





ESD, Type 5 
COMMON Area 


ESD, Type 1 
Entry Points 
ESD, Type 0 


Program Name 
of the Object 
Module 






TXT Cards for 
the BASE 
Table 







=F 
TXT Cards for 
Object 

Module Code 












Object Module Deck Structure -- 
(G) Compiler 


Figure 62. 





ESD, Type 2, and 
RLD for External 
References ir 
CALL, EXTERNAL, 
and Statements — 
Using Subprograrns 


















RLO Cards for 
the Branch List 















TXT Cards for 
the Branch List 







ESD, Type 5 
Indicating the 

Existence of the 
COMMON Area 















TXT.Cards 
for Object 
Module Instructions 






TXT Cards 
for Compiler 
Generated 

Constants 










ESD, Type 2 and 
RLD for Compiler 

Generated External 
References 




















TXT Cards for 
Coded FORMAT 
Stotements 









“ESD, Type ] Giving 
Entry Points: from’ 
ENTRY Statements 






TXT. Cards 
for Source 
Module Constants 









ESD, Type 0 
Giving the Name 
of the Object 

Module 







Object Module Deck Structure -- 
(H) Compiler 


Figure 63. 


c 
{H ONLY|.Cross Reference Listing 


Lewd 


If the compiler XREF option is speci- 
fied, a cross reference listing of 
variables and labels is written in the data 
set specified by the SYSPRINT DD statement. 
The variable names are listed in alphabet- 
ical order, according to length. (Variable 
names of one character appear first in the 
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listing.) The labels are listed in ascend- 
ing sequence along with the internal state- 
ment number of the statement in which the 
label is defined. 


For both variable names and labels, the 
listing also contains the internal state- 
ment number of each statement in which the 
variable or label is used. Figure 64 shows 
a compiler cross reference listing produced 
for the program in Figure 56. 


oe oe me ee ee 


|H ONLY |Structured Source Listing 


[ a | 


If the EDIT option is specified, a 
structured source listing is written in the 
data set specified by the SYSPRINT DD 
statement. This listing is independent of 
the usual source listing and indicates the 
loop structure and logical continuity of 
the source program. 


Each loop is assigned a unique 3-digit 
number. Entrance to the loop is indicated 
by a left parenthesis followed by a 3-digit 
loop number +~- (xxx -- before the internal 
statement number of the first statement in 
the loop; exit from the loop is indicated 
by the 3-digit loop number followed by a 
right parenthesis -- xxx) -- on a separate 
line’ before the next non-comment line. 


INTERNAL STATEMENT NUMBERS 
0005 0006 0606 0007 
0004 0065 .0609° 0010 0012° 0014 0014. G0O15 
OOG? 0008 
0003 Oeo9 
0009 0010 
0005 


SYMBOL 
a 


0010 


REFERENCES 

“008. 0010 

0010 
00i5 
0010 
0012 
0018 
001s 
00G2 
0016 


DEFINED 
0011 
0014 
0005 
0016 
0013 
00t9 
0018 
0093 
0017 
0092 
0004 
00% 
00%T 
0098 
0099 
0010 
0012 
0015 
0020 


0015 





Compiler Cross Reference List- 
ing -- (H) Compiler 


Figure 64, 


Indentations are used to show dominance 
relationships among executable source © 
statements. Statement A dominates state- 


ment B if A is the last statement common to 
all logical paths from which B receives 
.control. Statement A is called a domina- 
tor, statement B is called a dominee. By 
this definition, a statement can have only 
one dominator, but a dominator may have 
several dominees. For example, a computed 
GO TO statement is the last statement 
through which control passes before reach- 
ing three other statements. The GO TO 
statement is a dominator with three 
dominees. 


A dominee is indented from its dominator . 


unless it is either the only dominee or the 
last dominee of that dominator. The line 
of sight between a dominator and its 
dominee(s) may be obscured by intervening 
Statements. This is a dominance discon- 
tinuity and is indicated by C--- on a 
separate line above the dominee. 


Comments and non-executable statements 
are not involved in dominance relation- 
ships; their presence never causes a 
dominance discontinuity. Comments line up 
with the last preceding non-comment line; 
nonexecutable statements line up either 
with the last preceding executable state- 
ment or with the first one following. 


Figure 65 shows a structured source 


listing produced for the program in Figure 
566 


Source Module Diaqnostics 


FORTRAN IV (G) and (H) compiler messages 
are described in Appendix D. 


LINKAGE EDITOR OUTPUT 


The Linkage editor produces a map of a 
load module if the MAP option of the PARM 
parameter of the EXEC statement is speci- 


fied, or a cross reference list and a map 
if the XREF option is specified. The 
linkage editor also produces diagnostic 
messages, which are discussed in the 


Linkage Editor and Loader publication. 


Module Map 


The module map is written in the data 
set specified in the SYSPRINT DD statement 
for the linkage editor. To the linkage | 
editor, each program (main or subprogram) 
and each COMMON (blank or named) block is a 
control section. 


Each control section name is written 
along with origin and length of the control 
section. For a program and named COMMON, 
the name is listed; for blank COMMON, the 
name $BLANKCOM is listed. The origin and 
length of a control section is written in 
hexadecimal numbers. A segment number is 
also listed for overlay structures (see the 


Linkage Editor and Loader publication). 


For each control section, any entry 
points and their locations are also writ- 
ten; any functions called from the data set 
specified by the SYSLIB DD statement are 
listed and marked by asterisks. 


The total length and entry point of the 
load module are listed. Figure 66 shows, 
for the (G) compiler, a load module map 
produced for the program in Figure 56; the 
map produced for the (H) compiler is shown 
in Figure 67. 
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c PRIME. NUMBER PROBLEM 


ISN “100 WRITE (6,8) 


TSN" 8 FORMAT (52H FOLLOWING IS A LIST OF PRIME NUMBERS FROM 1° TO 1000/ 
LL9Xs LHEL/U9X, TH2719X11H3) : 


ISN 101 1=5 
C0O2TSN 3 Asl 
ISN 102 A=SQRTCA) 
ISN 103 J=A 
ISN 104 DO 1 K=39Je2 
COOLISN 105 L=I/K 
ISN 106 IFUL#K-1)1s204 
ISN i CONTINUE 


v01) c 


ISN 107 WRITE (6,571 

ISN 5 FORMAT (120) 

ISN [=I +42 

ISN IF (1000-117 9493 
002) c 

TSN WRITE (6,9) 


ISN FORMAT (14H PROGRAM ERROR) 


ISN WRITE (696) 


ISN FORMAT (31H THIS 1S THE END OF THE PROGRAM) 


ISN STOP 
ISN END 





Figure 65. Structured Source Listing -- (H) Compiler 





CONTROL SECTION ENTRY 


NAME ORIGIN ‘LENGTH NAME LOCATION 


MAIN 60 266 
MAIN 00 
IHC FCOMH* 2€8 FB3 
IBCOM= 
IHCSSQRT# at oo 
SQRT 
IHCECVTH* 
ADC ON= 
FCVIO 
IHCFILOSH* 
FIOCS= 
IHCUATBL* 


Figure 66. Load Module Map -- (G) Compiler 


CONTROL SECTION 


NAME ORIGIN LENGTH LOCATION 
MAIN CO 27C 
LHC SSQRT# 280 AC 
SQRT 

IHCFCOMH*® 330° FFO 
Maes y 1BCOM= 
IHCUOPT * 1330 6 ' 
IMCTRCH * 1338 | 258 
THCFCVTH® = 1590 FF3 

ADCON= 
nes as FCVIO 
IHCFIGSH*® 2588 CF2 
F LOCS= 


THCUATBL* 3280 638 


Figure 67. Load Module Map -- (H) Compiler 


Cross-Reference List 





If the linkage editor XREF option of the 
PARM parameter of the EXEC statement is 
specified, a cross reference list is writ- 
ten with the module map. This cross 
reference list gives the location from 
which an external reference is made, the 
symbol externally referred to in this con- 
trol section, the control section in which 
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NAME LOCATION. LOCATION NAME LOCATION 


FDIOCS= 


1542 
1F6C 


FCVAO 


FCVLO 
FCVCO a 





NAME LOCATION LOCATION LOCATION 


FOLOCS= 


1782 
2186 


FCVAO 
FCVCO 


FCVLO 


the symbol appears, and the segment number 
of the control section in which the symbol 
appears. Unless the linkage editor is 
building an overlay structure, the cross 
reference list appears after the module map 
for all control sections. Figure 68 shows, 
for the (G) compiler, the cross reference 
list produced for the program in Figure 56; 
the list produced for the (H) compiler is 
shown in Figure 69. 


LOAD MODULE OUTPUT 


At execution time, FORTRAN load module 
diagnostics are generated in three forms - 
error code diagnostics, program interrupt 
messages, and operator messages. An error 
code indicates an input/output error or a 
misuse of a FORTRAN library function. A 
program interrupt message indicates a con- 
dition that is beyond the capacity of 
System/360 to correct. An operator message 
is generated when a STOP or PAUSE is 
executed. 


LCCATION REFERS TO SYMBOL 


IN CONTROL SECTION 


D0 IBCOM= 
D4 SQRT 
1134 ADCON= 
112C FIOC S= 
1138 FC VEU 
113C FCVLO 
1140 FCVIO 
1144 FCVCO 
1148 FCVAG 
114C FCVZO 
1324 I BCOM= 
21FC IBCUM= 
2464 THC UATBL 
2470 IBCUM= 
ENTRY ADDRESS 00 
TOTAL LENGTH 3078 


IHCFCOMH 
THC SSQRT 
THCFCVTH 
IHCFIOSH 
THCFCVTH 
THCFCVTH 
THOFCVTH 
THCFCVTH 
THCFCVTH 
THCFCVTH 
THCFCCMH 
IHCFCOMH 
THCUATBL 
THCFC OMH 





Figure 68. Linkage Editor Cross Reference 
List -- (G) Compiler 


LOCATION REFERS TG SYMBOL IN CONTROL SECTION 
138 Sart 
13¢ 18COM= 
304 1BCOM= 

1108 AOCON= 
1100 FLOCS= 
10EO 1HCUOPT 
11D FCVEO 
11£0 FCVLO 
11E4 FCVIG 
11E8 FCVCO 
L1EC FGVAO 
“LIFO FCVZO 
11C8 IHCTRCH 
1490 16COM= 
(1494 ADCON= 
1498 FLOCS= 
2444 18COM= 
2686 IHCUATBL 
208 1BcOM= 
ENTRY ADDRESS 00 
TUTAL LENGTH 3688 


FHCSSQRT 
iHCFCOMH 
THCFCOMH 
THCECVTH 
- JHCFIOSH 
LHCUOPT 

THCFCVTH 
THCFCVTH 
THCFCVTH 
IHCFCVTH 
THCFCVTH 
JHCFCVTH 
LHCTRCH 

THCFCOMH 
LHCFECVTH 
THCF 10SH 
THCFCOMH 
THCUATBL 
(HCE COMH 


Linkage Editor Cross Reference 


Figure 69. 
fe cg List -- (H) Compiler 


Error Code Diaqnostics and Traceback 
without Extended Error Handling Message 
Facility 


If an error is detected during execution 
Of a FORTRAN load module, a message and a 





diagnostic traceback are written in the 
error message data set (see “FORTRAN Job 
Processing"). The message is of the form: 


message text 
TRACEBACK FOLLOWS-ROUTINE ISN REG. 14, 
REG. 15, REG. 0, REG. 1 


These error messages are described in 
Appendix D. For the error conditions num- 
bered 211 through 214, 217, 219, 220, and 
231 through 237, the message will consist 
of only IHCxxxI where xxx is a 3-digit 
error code. The errors detected by the 
FORTRAN mathematical functions will provide 
message text describing the error condi- 
tion. The traceback, which follows the 
error message, is a list of routines in the 
direct line of call to the routine in 
error, in reverse order of use. After the 
traceback is completed, for error message 
IHC2181, control is passed to the statement 
designated in the ERR parameter of the FOR- 
TRAN READ statement if that parameter was 
specified. In all other cases, execution 
of the job step is terminated and a condi- 
tion code of 16 is returned to the operat- 
ing systen. 


Each entry in the traceback contains the 
name of the called routine, an internal 
statement number (ISN) from the calling 
routine (if one was generated for that 
call), and the contents, in hexadecimal, of 
register 14 (which indicate the point of 
return to the calling routine). 


The first routine listed in the trace- 
back is the one that called the library 
subprogram in which the error occurred, 
except when the name given is IBCOM. Then, 
the error could have occurred in IHCFCOMH 
or one of the routines that it calls: 
IHCFCVTH, IHCNAMEL, or IHCFIOSH. The error 
code in the message indicates the actual 
origin of the error. 


Note: For an assembler language program or 
subprogram, the routine name field in the 
traceback contains the identifier specified 
in the SAVE macro instruction or equivalent 
coding. (If the identifier specified is 
longer than eight characters, only the 
first eight appear.) If no identifier is 
specified, the traceback routine name field 
is either blank or its contents are mean- 
ingless in the traceback. 


Internal statement number identifiers 
are generated for function references and 
calls when the ID option is specified on 
the EXEC statement for the compile step. 
These identifiers appear in the traceback, 
except for FORTRAN calls to IBCOM for which 
no identifiers are generated. If NOID is 
specified, no identifiers are generated and 
rie cisco arctica ie agitate will be 

ankg= oe 
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| IHC2191 

|TRACEBACK FOLLOWS ROUTINE ISN 
{ IBCOM 

| MASTR 010 
| PAYROLL 

[ENTRY POINT = 00005000 


1 

REG. | 
820068FC | 
00005378 oe: | 
00003148 i 
| 


14 REG. 15 
RXXXXXXX 


REG. 0 REG. 1 


XXXXXXXX XXXXXXKK 


XXXXXXXX XXXXXXXX XXXXXXXXK 


Oia tse i th Sas ees A EET IY TRAE ENN EE EN A CEE A NE OE EE TE ED LE EE SS ST TN ON SO NENT ES SEE ENS SN EN CN ES LS SS I SE SS ES SN A AY SOY SR SE IND ERED ID WOR 


Figure 70. SauEre Traceback for Execution-Time Errors 
Note: For an assembler language program or 


subprogram, the internal statement number 
field contains the value of the binary 
calling sequence identifier specified in 
the CALL macro instruction or equivalent 
coding. If no identifier was specified, 
the field is either blank or its contents 
are meaningless in the traceback. 


If the traceback cannot be completed, 
the message TRACEBACK TERMINATED is issued 
and the job step is terminated. This mes- 
sage appears only if either 13 names of 
subprograms appear in the traceback or a 
calling loop has been detected (e.g., sub- 
program A calling B calling A). 


At the end of the traceback, whether it 
was completed or not, the entry point of 
the main FORTRAN program is given in 
hexadecimal. 


Figure 70 shows the traceback informa- 
tion placed in the error message data set 
for the following example. 


Example: A FORTRAN program PAYROLL calis 
the subroutine MASTR, which contains a READ 
statement. The IHCFIOSH routine is called 
to perform the input operation, but an 
error condition arises because there is no 
DD statement for the data set. 


Explanation: . PAYROLL was entered at loca- 
tion 5000 and called MASTR at internal 
statement number (ISN) 10 in PAYROLL. 
IBCOM (in this case, the error occurred in 
the. IHCFIOSH routine) would have returned 
to location 68FC in MASTR; MASTR would have 
returned to location 5378 in PAYROLL and 
PAYROLL would have returned to location 
3148 in the supervisor. Execution ter- 
Minates and a condition code of 16 is 
returned to the operating system. 


Program Interrupt Messages 


Program interrupt messages containing 
the old Program Status Word (PSW) are pro- 
duced when one of the following occurs: 
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Protection Exception (4) 
Addressing Exception (5) 
Specification Exception (6) 

Data Exception (7) 

Fixed-Point Divide Exception (9) 
Exponent-Overflow Exception (C) 
Exponent-Underflow Exception (D) 
Floating-Point Divide Exception (F) 


The characters in parentheses following 
the exceptions are PSW codes that appear in 
the program interrupt message to indicate 
the type of exception. Appendix D contains 
a complete description of the message and 
its format. 


The program interrupt messages are writ~ 
ten on a data set specified by the pro- 
grammer. (See “FORTRAN Job Processing. ") 
Operator intervention is not required for 
any of these interruptions. 


ABEND Dump 


If a program interrupt occurs that 
causes abnormal termination of a load 
module, an indicative dump is given (i.e., 
only the contents of significant registers, 
indicators, etc., are dumped). However, if 
a programmer adds the statement 


7/GOQ.SYSABEND DD SYSOUT=A 


to the execute step of a cataloged proce- 
dure, main storage and significant regis- 
ters, indicators, etc., are dumped. (For 
information about interpreting an ABEND 


dump, see the Guide to Debugging 
publication.) 


Operator Messages 


A message is transmitted to the operator 
when a STOP or PAUSE is encountered during 
load module execution. Operator messages 
are written on the device specified for 
operator communication. For a description 
of these messages, see Appendix. De. 


The value associated with the STOP 
statement (0 if a value is not coded) is 
passed to the next job step and can be 
tested as a condition code by the COND 


parameter in the EXEC statement. This con- 
dition code will have a value of 16 if FOR- 
TRAN terminates the step because of a 
detected execution error. The STOP state- 
ment, like CALL EXIT, terminates a FORTRAN 
program and causes automatic closing and 
positioning of FORTRAN data sets, i.e., the 
writing out of the last buffer on output, 
the releasing of dynamic storage, the clos- 
ing of data sets, etc. 


LOADER OUTPUT 


The loader produces error and diagnostic 
messages and a storage map of the loaded 
program if the PRINT and MAP options, 






OPTIONS USED - PRINT, MAP, LET, CALL, RES, SIZE=102400 


OS/360 LOADER 


respectively, are specified in in the PARM 
field of the EXEC statement. The storage 
map and diagnostic messages are produced on 
the data set specified in the SYSLOUT DD 
statement. The diagnostic messages are 
fully described in the Messages and Codes 
publication. 


The storage map includes the name and 
absolute address of each control section 
and entry point defined in the program. It 
is written on SYSLOUT concurrently with 
input (SYSLIN) processing, as its entries 
appear in the same order as the input ESD 
items. The total size and storage extent 
of the loaded program are also included. 
Figure 71 shows the storage map produced | 
for the program in Figure 56. 








NAME TYPE ADDR NAME TYPE ADDR NAME TYPE ADDR NAME TYPE ADDR NAME TYPE ADDR 
MAIN SD 63360 IHCSSQRT* SD 63650 SORT * LR 63650  IHCECOMH* SD 63798 IBCOM# * LR 63798 
FDIOCS# *# LR 63854 INTSWICH* LR 646B6  IHCCOMH2* SD 646D0 SEQDASD * LR 68958. IHCERRM * SD | 64CU0 
ERRMON * LR 64C40 =IHCERRE * LR  64C58 IHCUOPT * SD 65200  IHCEFNTH* SD 65500 ARITH# * LR 65500 
ADJSWTCH* LR 6586c THCEFIOS* SD 65A18 FIOCS# * LR 65A18 FIOCSBEP* LR 65A1E THCFCVTH* SD 66C98 
poo Se ences FCVAOUTP* LR  66D42 FCVLOUTP* LR  66DD2  FCVZOUTP* LR 66F22  FCVIOUTP* LR 672c8 

: FCVCOUTP* LR 679E4 oINT6SWCH* LR  67CCB LHCUATBL* SD 67E30 HCETRCH* 
IHCTRCH * LR 68038 ERRTRA * LR 68040 oe le OMe 
TOTAL LENGTH —s- SF 68 a 
ENTRY ADDRESS» 





63360 


Figure 71. 












Storage Map Produced by the Loader 


System Output 113 


LINKAGE EDITOR OVERLAY FEATURE 


Overlay is a feature of linkage editor 
processing that allows the FORTRAN pro- 
grammer to reduce the main storage require- 
ments of his program by breaking it up into 
two or more segments that need not be in 
main storage at the same time. These seg- 
ments can be assigned the same relative 
storage addresses and can be loaded at dif- 
ferent times during execution of the pro- 
gram. The programmer uses linkage editor 
control statements to specify the relation- 
ship of segments within the overlay 
structure. 


DESIGNING A PROGRAM FOR OVERLAY 


Programs are placed in an overlay struc- 
ture according to the size, frequency of 
use, and logical relationships between the 
program units that they comprise. The 
basic principle of overlay is illustrated 
by the simple example in Figure 72. It 
shows a FORTRAN program consisting of a 
main program and two very large subprograms 
named SUBA and SUB. Normally, all three ~ 
program units would be loaded into main 
storage at the same time and would remain 
there throughout execution of the entire 
program. However, if there was not enough 
main storage space available to accommodate 
all three program units at once, and if 
SUBA and SUBB did not have to be in main 
storage at the same time, the programmer 
could design an overlay structure in which 
the MAIN routine stayed in main storage at 
all times, while subprograms SUBA and SUBB 
made use of the remaining space as they 
were needed. 


Ce ae bara abate Cee ae ern 
| | 
| MAIN | 
| | 
en pee riaass es 
| SUBA | 
| | 
}-----------------+------ ~----------------] 
| | 
| SUBB | 
| | 
Mee ae ae eee ee 
Figure 72. A FORTRAN Program Consisting of 


Three Program Units 


Figure 73 shows what happens at execu- 
tion time to the program in Figure 72. The 
MAIN routine is loaded and processing 
begins. When the MAIN routine calls SUBA, 
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SUBA is loaded and processing continues 
until SUBB is called. SUBB then overlays 
SUBA in main storage and remains there 
until SUBA is called again. The main 
storage requirements of the program are 
thus reduced from the total number of bytes 
in all three program units to the total 
number of bytes in the MAIN routine plus 
the larger of the two subprograms. 


Main Storage 


Problem 
Program 
Area 


a 
Time Q-—-————-—-—-——— ~~. > 
Figure 73. Time/Storage Map of a Three 


Segment Overlay Structure 


SEGMENTS 


The relationships among the program 
units in the overlay program described 
above can be graphically represented by an 
Overlay “tree" structure, as shown in 
Figure 74. Each “branch" of the overlay 
tree consists of a separately loadable unit 
of the program to which the linkage editor 
assigns a number. These overlay segments 
May contain one or more subprograms total- 
ing 512K bytes (524,288 bytes). 


The first segment in any overlay program 
is called the root segment. The root seg- 
ment remains in main storage at all times 
during execution of the program. It must 
contain: 


e The program unit which receives control 
at the start of processing. Usually 
this is the main routine in which pro- 
cessing begins at the entry point named 
MAIN. 


e Any program units which should remain 
in main storage throughout processing. 
For greater efficiency, subprograms 
which are frequently called should also 
be placed in the root segment if 
possible. 


e Any program units containing DEFINE 
FILE statements. 


e Any automatically called FORTRAN 
library subprograms. These are placed 
in the root segment automatically by 
the linkage editor when it processes 
the overlay program. 


e Certain information which is needed by 
the operating system to control the 
Overlay operation. Like the FORTRAN 
library subprograms, this information 
is automatically included in the root 
segment by the linkage editor. 


Segment 1 
(ROOT) 


| 
| MAIN. | 
| | 


a 


Segment 2 | Segment 3 
Sc am a a 1 
| | 
| | 
pron ate 7 poate 
| SUBA | | SUBB | 
| eee Jj ee eee | 
Figure 74. Overlay Tree Structure of Three 
Program Units 
PATHS 


The relationships among the segments of 
an overlay program are expressed in terms 
of "paths". A path consists of a given 
segment and any segments between it and the 
root segment. The root segment is thus a 
part of every path, and when a given seg- 
ment is in main storage, all segments in 
its path are also in main storage. The 
simple program in Figure 74 is made up of 
only two paths, as shown in Figure 75. 


The paths of an overlay program are 
determined by the dependencies between the 
program units which it comprises. A pro- 
gram unit is considered to be dependent on 


any program unit which it calls or whose 
data it must process. 


Path 2 


Path 1 

aa aaa lasted a ered oer arias 
| | | | 
| | | | 
| MAIN | ie ees MAIN | 
| | l | 
| | | | 
to ged ree q--= 4 

| | 

| | 

| | 

| | 

| | 

| | 
Pramas | iain dates = eeeeaans | 
| | 
| | | | 
| SUBA | | SUBB | 
| | | | 
| [ | | 
Le ote ead St ea ae 4 

Figure 75. The Paths in the Overlay Tree 


in Figure 74 


Figure 76 shows a FORTRAN program in an 
overlay tree structure. The paths implied 
by that structure are illustrated in Figure 
77. #$The MAIN routine and subprograms SUB1 


Segment 1 
(ROOT) 
| MAIN | 
}--—---4 
| SUBL | 
| suB2 | 
Ly ad 
Segment 2 | Segment 6 
ea a aca | 
| ALPHA | 
aanee Secon pw adn many 
| sUB3 | | SUB1i1i | 
------ b-------4 
{| suUB4 | | SUB12 | 
~—_--~J Ls ape ciros cous 4 
| 
---------- 4----------) 
| BETA | | 
| | | 
p--—4--— po-- tt eer, Seen 
| suBS | {| SUBS | {| SUB10 | 
p------{ }-------{ “------- 
| SUB6 | | SUBS | Segment 5 
Seaeere erarea Lie ee 
| SUB7 | Segment 4 
baie 
Segment 3 
Figure 76. Overlay Tree Structure Having 


Six Segments 
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Path 4 


Path 3 


Path 2 


Path 1 
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eee aaa eee poe Aiea ard 


Segment 4 





| SUBS 


}-------4 


| SUB7 


td 


Figure 77. 


Paths Implied by Tree Structure in Figure 76 
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and SUB2 will remain in main storage for 
the duration of execution time. They will 
occupy the root segment. The segment con- 
taining subprograms SUB3 and SUB4 will use 
the same area of main storage as the seg- 
ment containing subprograms SUB11 and 
SUB12. Likewise, the main storage area 
used by the segment containing SUB5, SUB6, 
and SUB7 will be used by the segment con- 
taining SUB8 and SUB9, as well as by the 
segment containing SUB10. Figure 78 is a 
time/storage map of the program shown in 
Figures 76 and 77. 


The structure in Figures 76 and 77 con- 
sists of segments numbered 1 through 6, 
with segment 1 being the root segment. 
Segments 2 and 6 have the same relative 
origin; that is, they will start at the 
same location when in main storage. This 
Origin has been given the symbolic name 
ALPHA by the programmer (on an OVERLAY con- 
trol card). The relative origin of seg- 
ments 3, 4, and 5 has been given the sym- 
bolic name BETA. 


The relative origin of the root segment, 
also called the relocatable origin, is 
assigned at 0. The relative origin of any 
segment other than the root segment is 
determined by adding the lengths of all 
segments in its path, including the root 
segment. When the program is loaded for 
execution, the first location of the root 
segment (the relocatable origin of the pro- 
gram) is assigned to an absolute storage 
address. All other origins are automati- 
cally increased by the value of that 
storage address. 


COMMUNICATION BETWEEN SEGMENTS 


Overlay segments can be related to one 
another by being either inclusive or exclu- 
sive. Inclusive segments are those which 
can be in main storage simultaneously, in 
other words, those which lie in the same 
path. Exclusive segments are those which 
lie in different paths. Thus, in the pro- 
gram shown in Figures 76 and 77, segments 2 
and 5 are inclusive, while segments 2 and 6 
are exclusive. 


Main Storage 







ALPHA 
poe eae Sane 
| Segment 2 | Segment | 
| ; 6 | 
| | | 
| BETA { | 
-}-------1-------7- SS Problem 
| | | Program 
| | Area 
| | 
| 
| 
| 
| 
Time 0Q—--—----——- ~- + on 


Figure 78. Time/Storage Map of Six Segment 


Structure 


INCLUSIVE REFERENCES 


An inclusive reference is a reference 
from a segment in main storage to a subpro- 
gram that will not overlay the calling seg- 
ment. When a CALL is made from a program 
unit in one segment to a program unit in an 
inclusive segment, control may be returned 
to the calling segment by means of a RETURN 
statement. 


When a CALL is issued in any segment to 
a subprogram which is higher (closer to the 
root segment) on the overlay tree, the 
called subprogram must return control to 
the calling segment by a RETURN statement 
before any exclusive overlay segments may 
be loaded. 
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EXCLUSIVE REFERENCES | 


Exclusive references are those made in 
one segment to another segment that will 
overlay it. 


An exclusive reference is considered 
valid only if the called routine is also 
referred to in a segment common to both the 
segment to be loaded and the segment to be 
overlaid. Assume, for example, in Figure 
79 that the main program (common segment) 
contains a reference to segment A but not 
to segment B. A reference in segment B to 
a routine in segment A is valid because 
there is also an inclusive reference 
between the common segment and segment A. 
(A table in the common segment, supplied by 
the linkage editor, contains the address of 
segment A. The overlay does not destroy 
this table.) An exclusive reference in 
segment A to a routine in segment B is 
invalid because there is no reference to 
segment B in the common segment. 


Both valid and invalid exclusive 
references are considered errors by the 
linkage editor; however, by use of the LET 
or XCAL processing options described later 
in this section, the programmer can allow a 
program containing a valid exclusive 
reference to be executed. Programs con- 
taining invalid exclusive references are 
never executable. 


anita: 
| COMMON | 


| Segment | 
i 7——_4 


Inclusive 
Reference 





parent] ponsete ay 


| | | | 
{Segment Aj {Segment BI 


I | | { 


Ld 


Exclusive Reference 


Communication Between Overlay 
Segments 


Figure 79. 


OVERLAY PROCESSING 


Overlay is initiated at execution time 
in response to a reference to a subprogram 
which is not already in main storage. The 
subprogram reference may be either a FUNC- 
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TION name. or a CALL statement reference to 
a SUBROUTINE name. When the reference is 
executed, the overlay segment containing 
the required subprogram. as well as any 
segments in its path not currently in main 
storage, are loaded. 


When a segment is loaded, it overlays 
any segment in storage with the same rela- 
tive origin. It also overlays any segments 
that are lower in the path of the overlaid 
segment (i.e., farther from the root seg- 
ment). For example, if segments 1, 2, and 
3 in Figures 76 and 77 are in main storage 
when the main program executes a call to 
subprogram SUB11, segments 2 and 3 will not 
be available for as long as segment 6 is in 
main storage. 


Whenever a segment is loaded, it con- 
tains a fresh copy of the program units 
that it comprises; any data values that may 
have been established or altered during 
previous processing are returned to their 
initial values each time the segment is 
loaded. Thus, data values that are to be 
retained for longer than a single load 
phase should be placed in the root segment. 


Overlay is not initiated when a return 
is made from a subprogram, or when a seg- 
ment in main storage executes a reference 
to a subprogram that is already in main 
storage. 


COMMON AREAS 


The linkage editor treats all FORTRAN 
COMMON areas as separate subprograms. When 
modules containing COMMON areas are pro- 
cessed by the linkage editor, the COMMON 
areas are collected. That is, when two or 
more blank (unamed) COMMON areas are 
encountered in the input to the linkage 
editor, only the largest of them is 
retained in the output module. Likewise, 
when two or more named COMMON areas of the 
same name are encountered, only the largest 
of them is retained in the output module. 


In an. overlay program, the ultimate 
location of blank and named COMMON areas in 
the output module depends upon which link- 
age editor control statements are used in 
the building of the overlay structure (see 
the section "Construction of the Overlay 
Program"). Overlay structures built 
without the use of INSERT statements (those 
in which the program units for each segment 
are included between OVERLAY statements) 
produce an output module in which the 
linkage editor “promotes"™ the COMMON areas 
automatically. The promotion process 
places each COMMON area in the lowest pos- 
sible segment on the overlay tree. The 


lowest possible segment is one that will 
always be in main storage with every seg- 
ment containing a reference to it. 


Figures 80 and 81 show an overlay pro- 
gram aS it appears before and after the 
automatic promotion of COMMON areas. The 
exact position of a promoted COMMON area 
within the segment to which it is promoted 
is unpredictable. 


If INSERT statements are used to struc- 
ture the overlay program, a blank COMMON 
area should appear physically in the input 
stream in the segment to which it belongs. 
A named COMMON area either should appear 
physically in the segment to which it 
belongs, or should be placed there with an 
INSERT statement. 


COMMON areas encountered in modules from 
automatic call libraries are automatically 
promoted to the root segment. If such COM- 
MON areas are named, they can be positioned 
by the use of an INSERT statement. 


Named COMMON areas in BLOCK DATA subpro- 
grams must be at least as large as any 
identically named COMMON areas in FORTRAN 
programs that are to be link edited with 
the BLOCK DATA subprograms. 


| MAIN | 
} SUB1 | 
b acetate 
| SUB2 | 
baaeyeees 
| 
| 
SSS Less 1 
| | 
| | 
ee eee pore Sonatas 
| COMMONA | | COMMONA | 
| SUB3 | | SUB11 | 
| SUB4 | { SUB12 | 
bee Ei ere nanes 4 
| 
| 
poses Yes aa amis 1 
| | | 
| | | 
poner OSA een seks ciety oe aa 
|COMMONB| | SUBS | |COMMONB| 
| SUB5 | {| SUB9 | {| SUB10 | 
tintin ees lege awed Lecwetel sad 
| SUB6 | 
| SUB7 | 
be ed 
Figure 80. Overlay Program Before Automat- 


ic Promotion of Common Areas 
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Figure 81. Overlay Program After Automatic 


Promotion of. Common. Areas 


CONSTRUCTION OF THE OVERLAY PROGRAM 


The programmer communicates his overlay 
strategy to the operating system in two 
ways: through the use of special proces- 
sing options which he specifies in the PARM 
parameter of the EXEC statement which 
invokes the linkage editor, and through the 
use of linkage editor control statements. 
The general functions of these options and 
statements are described in the section 
"FORTRAN Job Processing." Those which are 
of particular interest to the programmer 
constructing an overlay program are dis- 
cussed below. 


LINKAGE EDITOR CONTROL STATEMENTS 


Once the programmer has designed an 
overlay tree structure for his program, he 
places the program in that structure by 
indicating to the linkage editor the rela- 
tive positions of the segments which make 
up the tree. The control statements which) 
accomplish this are placed in the input 
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stream following the //SYSIN DD* card, or 
after the //LKED.SYSIN DD* card if a cata- 
loged procedure is used. Linkage editor 
control statements have the following form: 


Ar re a ne ee Ys ee ee 1 
| Operation | Operand | 
|-------------------- $-------------------- { 
| verb | operand(s) | 
Dice chatie erra ecs are ne eaten ae eae 4 


where "verb" is the name of the operation 
to be performed. The first column of all 
linkage editor control statements must be 
blank, and the operation field, which 
begins in column 2, must contain a verb. 
The operand field, which must be separated 
from the operation field by at least one 
blank, must contain one or more symbols 
separated by commas. No embedded blanks 
may appear in the operand field. Linkage 
editor control statements are placed 
before, between, or after modules in the 
input stream. They may be grouped, but 
they may not be placed, within a module. 


The most important control statements 
for implementing an overlay program are the 
OVERLAY, INSERT, INCLUDE and ENTRY state- 
ments. The OVERLAY statement indicates the 
beginning of an overlay segment. The 
INSERT statement is used to rearrange the 
sequence of object modules in the resulting 
load module(s). The INCLUDE statement is 
used to incorporate input from secondary © 
sources into the load module. The ENTRY 
statement specifies the first instruction 
to be executed. 


The OVERLAY Statement 


The OVERLAY statement indicates the 


beginning of an overlay segment. Its gen- 
eral form is: 

Sania aa a ee SF rn ne re 
| Operation | Operand | 
son ie a a i a ea sc, ae i 4---+-~-~--~--—~---+--- 4 
| OVERLAY | symbol | 
DeSoto ee es ce Me peste i Slee de J 


where the operand "symbol" is the program- 
mer*s identification of the beginning of 
the segment, that is, the symbolic name of 
the relative origin. Such symbols may be 
any group of from one through eight alpha- 
meric characters beginning with an alpha- 
betic character. 


The OVERLAY statement for a seqment is 
placed in one of three places: directly 
before the object module deck for the first 
program unit of the new segment, or before 
an INSERT statement specifying the program 
units to be placed in the segment, or 
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before an INCLUDE statement specifying the 
program units to be placed in the segment. 
Assuming that object module decks are 
available, the input deck to the linkage 
editor for the program in Figures 76 and 77 
could be arranged as follows: 


 -. 1 
{MAIN | 
| SUB1 eo module deck 


SUB2 | 

OVERLAY ALPHA 

p-+-+=+ 

|SUB3 il 
| object module deck 
i 


ed 


| SUB5 il 
|SUB6 |pobject module deck 
| SUB7 if 


OVERLAY BETA 
rence | 
| SUB8 il 


| 


| object module deck 
|SUB9 1 


|SUB12 


IS. 
|sup22| 


ENTRY MAIN 


The order in which the overlay segments 
are specified has nothing to do with the 
order of execution, which is determined by 
subprogram references; however, once a sym- 
bolic name has been specified for a point 
of origin, it may not be used again in the 
deck after specifications have been made 
for a point higher in the overlay tree. 
Thus, in the example above, no further seg- 
ments could be specified for load point 
BETA after the second specification for 
load point ALPHA. 


An OVERLAY statement must never be 
placed before the root segment. 


The INSERT Statement 


There are many instances in which it is 
inconvenient or impossible for the pro- 
grammer to position object module decks 
physically in the input stream. Library 
routines, which are normally placed in the 


root segment, and routines compiled in an 
earlier step in the same job, are examples 
of program units for which the object 
module decks are not available for posi- 
tioning at the time the job is set up. 


The INSERT statement is used to position 
control sections from such program units in 
an overlay structure. A control section, 
or CSECT, is the operating system designa- 
tion for the smallest separately relocat- 
able unit of a program. Examples of FOR- 
TRAN control sections are: main programs, 
subprograms, blank and named COMMON blocks. 


The INSERT statement has the form: 


| Operation | Operand | 

ST Siemens (nome oer i ocak el iat ntn ero 
| INSERT | csectname[,csectname ...] | 
Reece ney urceer one acai cers acta ecco lic lai pease 


where “csectname* is the name of the con- 
trol section to be positioned. Multiple 
operands, separated by commas (not blanks), 
may be specified. 


The INSERT statement is placed directly 
after the OVERLAY statement for the segment 
containing the control section. If the 
control section is to be positioned in the 
root segment, the INSERT statement is 
piaced before the first OVERLAY statement. 


Using INSERT statements and a FORTRAN 
source deck, the overlay structure speci- 
fied in Figures 76 and 77 could be imple- 
mented as follows: 


eS ee pac taars ae ae e 1 
| FORTRAN source deck| 


|containing units 


ENTRY MAIN 

INSERT MAIN, SUB1, SUB2 
OVERLAY ALPHA 

INSERT SUB3, SUB4 
OVERLAY BETA 
INSERT SUB5, SUB6, SUB7 
OVERLAY BETA 

INSERT SUB8,SUB9 
OVERLAY BETA 

INSERT SUB10 

OVERLAY ALPHA 

INSERT SUP11,SUB12 


If INSERT statements are used more than 
once in the same program for a control sec- 
tion of the same name, the CSECT will be 
positioned in the segment specified by the 
first occurrence of the CSECT name in the 
input stream. Any additional INSERT state- 
ments referring to the CSECT will be 
ignored and, at execution time, all 
references to the CSECT will resolve to the 
first one positioned. Thus, if a subpro- 


gram is required in more than one path, it 
must be either inserted in the root segment 
or renamed before being used with an INSERT 
statement. 


The INCLUDE Statement 





The INCLUDE statement is described in 
the section "FORTRAN Job Processing.* When 
used in an overlay program, the INCLUDE 
statement is generally placed in the seg- 
ment in which the material to be included 
is required. It is possible to manipulate 
the control sections which were added by an 
INCLUDE statement through the use of the 
INSERT statement. Assuming that the con- 
trol sections of the overlay program from 
the previous examples resided in libraries 
as follows: 


ey Sa ees eee 


| LIBA | |LIBB | 
{BOOK1 |BOOK2| {SUBS | 
}-----—--+----- - |SUB6 | 
[MAIN |SUB3 | |SUB7 | 
}SUB1 |SUB4 | [SUBS | 
|SUB2 | [ |SUB9 | 
eoeees ----i  —- | SUB10| 
|SUB111 | 

| SUB12| 

tL... J 


Then the overlay structure could be imple- 
mented by the use of the following control 
statements: 


ENTRY MAIN 

INCLUDE LIBA(BOOK1) 
INCLUDE LIBB 
OVERLAY ALPHA 
INCLUDE. LIBA(BOOK2) 
OVERLAY BETA 
INSERT SUB5,SUB6,SUB7 
OVERLAY BETA 
INSERT SUB8,SUB9 
OVERLAY BETA 
INSERT SUB10 
OVERLAY ALPHA 
INSERT SUB11,SUB1i2 


The ENTRY Statement 





The ENTRY statement specifies the first 
instruction of the program to be executed. 
It has the form: 


Ce eee Se ee ee 1 
{| Operation | Operand | 
~-~-----~----------- 4-------------------- 1 
| ENTRY | External-name | 
atic aaa ttn Some he ses 4 
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where the operand “external-name" must. be 
the name of an instruction in the root seg- 
ment. Usually it will be the name MAIN. 


The ENTRY statement may be placed 
before, between, or after the program units 
or other control statements in the input 
stream. An ENTRY statement is necessary in 
all overlay programs because, after linkage 
editor processing, the first part of the 
root segment contains special overlay con- 
trol information rather than executable 
code. The previous examples of overlay 
implementation show the use and placement 
of the ENTRY statement. 


PROCESSING OPTIONS 


Along with the necessary linkage editor 
control statements, the programmer imple- 
menting an overlay structure must provide 
certain information to the operating system 
by means of the PARM parameter of the EXEC 
statement which invokes the linkage editor. 
This information is in the form of keyword 
parameters such as OVLY, LIST, XCAL, etc. 
Thus, the EXEC statement invoking the link- 
age editor might have the form: 


//LKED EXEC PGN=IEWL, PARM=‘*OVLY, LIST, we.' 


When the linkage edit is one step (step- 
name LKED) of a compile, linkage edit, and 
execute procedure such as FORTGCLG, the 
PARM information is supplied in the EXEC 
statement for the cataloged procedure as 
follows: 


//STEP EXEC FORTGCLG, PARM. LKED=‘OVLY, 
LIST, «<0 ‘ : 


When PARM is specified for a cataloged 
procedure, any processing options which 
were Originally part of the procedure are 
nullified. It is therefore good practice 
to list all desired options when PARM is 
used for the linkage editor step of such 
procedures. 


Those linkage editor processing options 


which are of special interest to the over- 
lay programmer are discussed below. 
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e The OVLY option indicates that the load 


module produced will be an overlay 
structure, as directed by subsequent 
linkage editor control statements. 
OVLY must be specified for all overlay 
processing. 


When LIST is specified, all linkage 
editor control statements will be 
listed in card image format on the dia- 
gnostic output data set, SYSPRINT. 


The MAP option instructs the linkage 
editor to produce a map of the output 
module. The map of the output module 
of an overlay structure shows the con- 
trol sections grouped by segment. 
Within each segment, the control sec- 
tions are listed in ascending order 
according to their assigned origins. 
The number of the segment in which each 
appears is also printed. 


When the XREF option is specified, the 
linkage editor produces a cross- 
reference table of the output module. 
The cross-reference table includes a 
module map and a list of all address 
constants that refer to other control 
sections. Since the cross-reference 
table includes a module map, XREF and 


MAP cannot both be specified for one 


linkage editor job step. 


“When XCAL is specified to the linkage 


editor, a valid exclusive call is not 
considered an error, and the load 
module is to be marked executable, even 
though improper branches were made 
between control sections. 


When LET is specified, any exclusive 
call (valid or invalid) is accepted. 
The output module will be marked "ready 
for execution" even though certain 
error or abnormal conditions were found 
during linkage editing. At execution 
time, a valid exclusive call may or may 
not be executed correctly. An invalid 
call will usually cause unpredictable 
results; the requested segment will not 
be loaded. 


This section describes the error diag- 
nostic facilities available during program 
execution when the extended error handling 
facility has been requested at system 
generation time.+ 


The extended error handling facility 
provides the user with information about 
data-dependent or program errors detected 
in a FORTRAN program during execution. ? 
(These errors are not syntactical or 
semantic in nature.) When a data-dependent 
or program error occurs, the user is given: 


e Messages more informative than those 
issued with standard diagnostic 
facilities. 


e Traceback information more extensive 
than that provided with standard diag- 
nostic facilities. 


e Either standard FORTRAN corrective 
action with continued execution or, 
optionally, the opportunity to examine 
and alter erroneous data. 


When an error occurs with extended error 
handling in effect, a short message text is 
printed along with an error identification 
number. The data in error (or some other 
associated information) is printed as part 
of the message text. A summary error 
count, printed when a job is completed, 
informs the user how many times each error 
occurred. 


A traceback map, tracing the subroutine 
flow back to the main program, is printed 
after each error occurrence; execution then 
continues. (If the extended error handling 
facility is not specified, a traceback map 
is printed only for errors causing program 
termination and -~ if the ERR= option has 
been specified in a READ statement -- for 
error IHC2181.) 


For each error condition detected, the 
user has both dynamic and default control 
over: 
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4This facility is requested by means of the 
OPTERR parameter of the FORTLIB macro 
instruction. For details, see the System 
Generation publication. 

*The errors detected by the extended error 
handling facility are listed in Appendix D 
under the heading “Extended Error Messages 
for Execution Errors." 
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e The number of times the error is 
allowed to occur before program 
termination. 


e The maximum number of times each mes- 
sage may be printed. 


e Whether or not the traceback map is to 
be printed with the message. 


e Whether or not a user-written error- 
exit routine is to be called. 


The action that takes place is governed by 
information stored in an area of main 
storage called the option table. (A per- 
manent copy of the option table is main- 
tained in the FORTRAN library.) 


FUNCTIONAL CHARACTERISTICS 





When an error is detected, the FORTRAN 
error monitor (ERRMON) receives control. 
The error monitor is passed the following 
information: 


* An error identification number. 


e The text of the appropriate message to 
be printed on the object error unit. 


e A pointer to the data in the error. 


e The address of an area for a return 
code. 


The error monitor prints the necessary 
diagnostic and informative messages and 
then takes one of the following actions: 


e Terminates the job. 


e Returns control to the calling routine, 
which takes a standard corrective 
action and then continues execution. 


e Calls a user-written closed subroutine 
to correct the data in error, and then 
returns to the routine that detected 
the error, which then continues 
execution. 


The actions of the error monitor are 
controlled by settings in the option table. 
The option table consists of a doubleword 
preface, followed by a doubleword entry for 
each error condition. (If the extended 
error handling facility is not specified, 
the option table is reduced to the preface 
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alone.) IBM provides a default of 95 
entries; the programmer can provide addi- 
tional entries during system generation. 
Figures 82 and 83 describe the fields of 
the option table and list the system 
generation default values for the contents 26 
of these fields. Table 20 shows the system 
generation default values for each error 
condition. Note that default values can be 
overridden only; they cannot be permanently 
changed. 


SUBPROG 
FACILITY 


FOR THE EXTENDED ERROR HANDLING 


To make full use of the extended error 
handling facility, the programmer may call 
four IBM-supplied subroutines in his FOR- 
TRAN source program: ERRSAV, ERRSTR, ERR- 
SET, and ERRTRA. These subroutines allow 
access to the option table to alter it 3. 
dynamically.+ Changes made dynamically are 
in effect for the duration of the program 
that made the change. Only the current 
copy of the option table in main storage is 
affected; the copy in the FORTRAN library 
remains unchanged. All passed parameters, 
unless otherwise indicated, are 4-byte 
(fullword) integers. 


Accessing and Altering the Option Table 
Dynamically 


1. The CALL ERRSAV statement, described 
below, can be used in modifying an 
entry temporarily to save the original 
entry for later restoration. The 
statement causes an option table entry 

to be copied into an 8-byte storage 
area accessible to the FORTRAN 
programmer. 


CALL ERRSAV (ierno,tabent) 


ierno 
is an integer equal to the error 
: pamaber to be referenced in the 
option table. Should any number 
not within the range of the option 
table be used, an error message 
will be printed. 
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4certain option table entries may be pro- 
tected against alteration when the option 
table is set up. If a request is made by 
means Of CALL ERRSTR or CALL ERRSET to 
alter such an entry, the request is 
ignored. (See Table 18 for which IBM- 
supplied option table entries cannot be 
altered.) 
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tabent 
is the address of an 8-byte storage 
area where the option table entry 
is to be stored. 


To store an entry in the option table, 
the following statement is used: 


CALL ERRSTR (ierno,tabent) 


ierno 
is an integer equal to the error 
number for which the entry is to be 
stored in the option table. Should 
any number not within the range of 
the option table be used, an error 
message will be printed. 


tabent 
is the address of an 8-byte storage 
area containing the table entry 
data. 


The CALL ERRSET statement, described 
below, permits the user to change up 
to five different options in an option 
table entry. A procedure for altering 
only one option without altering 
others is explained in the definition 
of the parameters. Another procedure 
is to omit the final parameter (or the 
last two or three parameters) from the 


calling sequence, or to give the value 


of zero to a parameter to indicate no 
change. 


CALL ERRSET (ierno,inoal,inomes, 
itrace, iusadr, irange) 


ierno 
is an integer equal to the error 
number to be referenced in the 
option table. Should any number 
not within the range of the option 
table be used, an error message 
will be printed. (Note that if 
ierno is specified as 212, there is 
a special relationship between the 
ierno and irange parameters. See 
the explanation for irange. ) 


inoal 
is an integer specifying that 
execution be terminated when this 
number of errors has occurred. If 
inoal is specified as either zero 
or a negative number, the specifi- 
cation is ignored, and the number- 
of-errors option is not altered. 
If a value of more than 255 is 
specified, an unlimited number of 
errors is permitted. 


inomes 
is an integer indicating the number 
of messages to be printed. A nega- 
tive value specified for inomes 
causes all messages to be sup- 


itr 


ius 


ae 


b. 


ira 


pressed; a specification of zero 
indicates that the number-of- 
messages option is not to be 
altered. 


ace 
is an integer whose value may be 0, 
1, or 2. A specification of 0 
indicates the option is not to be 
changed; a specification of 1 
requests that no traceback be 
printed after an error occurrence; 
a specification of 2 requests the 
printing of a traceback after each 
error Occurrence. (If a value 
other than 1 or 2 is specified, the 
option remains unchanged. ) 


adr 
is an optional parameter that may 
contain either: 


the value 1, as a 4-byte integer, 
indicating that the option table 
is to be set to show there is no 
user-exit routine (i.e., standard 
corrective action is to be used 
when continuing execution). 


the name of a closed subroutine 
that is to be executed after the 
occurrence of the error identified 
by ierno. The name must appear in 
an EXTERNAL statement in the 
source program, and the routine to 
which control is to be passed must 
be available at linkage editing 
time. 


the value 0, indicating that the 
table entry is not to be altered. 


nge 
is an optional parameter specified 
as an integer that performs a 
double function and indicates that 
the inoal, inomes, itrace, and 
iusadr options values are to be 
applied to the range of error num- 
bers ierno to irange. If irange is 
smaller than ierno, irange is 
ignored (unless ierno has been 
specified as 212). 


If ierno has been specified as 
212, irange functions as a control 
carriage parameter. Thus, if ierno 
is specified as 212, and irange as 
1, single spacing is provided on an 
overflow line (standard fixup for 
WRITE). If a value other than 1 is 
specified, no carriage control is 
provided. (Note that if ierno has 
been specified as 212 and the car- 
riage control option is not to be 
changed, irange must be omitted 
from the call to ERRSET.) 


&, Under the extended error handling 
facility, a user may dynamically requ- 
est a traceback and continued execu- 
tion. To obtain subroutine trace, the 


following statement is used: 
CALL. ERRTRA 


The calt has no parameters. 


USER-SUPPLIED ERROR HANDLING 


The user has the ability of calling, in 
his own program, the FORTRAN error monitor 
(ERRMON) routine, the same routine used by 
FORTRAN itself when it detects an error. 
ERRMON examines the option table for the 
appropriate error number and its associated 
entry and takes the actions specified. If 
a user-exit address has been specified, 
ERRMON transfers control to the user- 
written routine indicated by that address. 
Thus, the user has the option of handling 
errors in one of two ways: (1) simply by 
calling ERRMON -- without supplying a user- 
written exit routine; or (2) by calling 
ERRMON and providing a user~-written exit 
routine. 


In either case, certain planning is 
required at the installation level. For 
example, error numbers must be assigned to 
error conditions to be detected by the 
user, and additional option table entries 
must be made available for these condi- 
tions. The routine that uses the error 
monitor for error service should have the 
status of an installation general-purpose 
function similar to the IBM-supplied mathe- 
matical functions. The number of installa- 
tion error conditions must be known when 
the FORTRAN library is created at system 
generation, so that entries will be pro- 
vided in the option table by the ADDNTRY 
parameter of the FORTLIB macro instruction. 
The error numbers chosen for user subpro- 
grams are restricted in range. IBM- 
designated error conditions have reserved 
error codes from 000 to 301. Error codes 
for installation-designated error situa- 
tions must be assigned in the range 302 to 
899. The error code is used by FORTRAN to 
find the proper entry in the option table. 


To call the ERRMON routine, the follow- 
ing statement is used: 


CALL ERRMON (imes, iretcd, ierno 
{,datal,data2,...] ) 


imes La 
is the address of an array aligned on 
a fullword boundary, that contains, in 
EBCDIC characters, the text of the 
message to be printed. The number of 
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the error condition should be included 
as part of the text, because the error 
monitor prints only the text passed to 
it. The first item of the array con- 
tains an integer whose value is the 
length of the message. Thus, the 
first four bytes of the array will not 
be printed. If the message length is 
greater than 133 characters, it will 
be printed on two or more lines of 
printed output. 


iretcd 
is an integer variable made available 
to the error monitor for the setting 
of a return code. A code of 0 orl 
can be set. An interpretation of 
these codes follows: 


0 - The option table or user-exit rou- 
tine indicates that standard 
correction is required. 


1 - The option table indicates that a 
user exit to a corrective routine 
has been executed. The function 
is to be reevaluated using argu- 
ments supplied in the parameters 
datai,data2.... For input/output 
type errors, the value 1 indicates 
that standard correction is not 
wanted. 


ierno 
is an integer representation of the 
error condition. The value assigned 
identifies an error condition for 
which there is a unique entry in the 
option table. Should any number not 
within the range of the option table 
be specified, an error message will be 
printed. 


datai, data2s.. 
are variable names in an error- 
detecting routine for the passing of 
arguments found to be in error. One 
variable must be specified for each 
argument. Upon return to the error- 
detecting routine, results obtained 
from corrective action are in these 
variables. Because the content of the 
variables can be altered, the loca- 
tions in which they are placed should 
be used only in the CALL statement to 
the error monitor; otherwise, the user 
of the function may have literals or 
variables destroyed. 


Since datal and data2 are the parame- 
ters which the error monitor will pass 
to a user-written routine to correct 
the detected error, care must be taken 
to make sure that these parameters 
agree in type and number in the call 
to ERRMON and in a user-written cor- 
rective routine, if one exists. 


126 


User-Supplied Exit Routine Be 


When a user-~exit address is supplied in 
the option table entry for a given error 
number, the error monitor calls the speci- 
fied subroutine for corrective action. The 
subroutine may be user-written and is 
called by the equivalent of the following 
FORTRAN statement: 


CALL x (iretcd,ierno, datai,data2...) 


is the name of the routine whose 
address was placed into the option 
table by the iusadr parameter of the 
CALL ERRSET statement. (Interpreta- 
tions of the other parameters -- 
iretcd, ierno, datal, data2 -- are the 
same as those for the CALL ERRMON 
statement.) If an input/output error 
is detected (i.e., an error for codes 
211 to 237), subroutine “*x" must not 
execute any FORTRAN I/O statements, 
i.e., READ, WRITE, BACKSPACE, END 
FILE, REWIND, DEBUG, or any calls to 
PDUMP or ERRTRA. Similarly, if errors 
for codes 216 or 241-301 occur, the 

- subroutine "x" must not call the 
library routine that detected the 
error or any routine which uses that 
library routine. For example, a 
statement such as 


R= A ** B 


cannot be used in the exit routine for 
error 252, because FRXPR# uses EXP, 
which detects error 252. 


Note that although a user-written cor- 
rective routine may change the setting of 
the return code (iretcd), such a change is 
subject to the following restrictions: 


1. If iretcd is set to 0, then datal and 
data2 must not be altered by the cor- 
rective routine, since standard cor- 
rective action is requested. If datal 
and data2 are altered when iretcd is 
set to 0, the operations that follow 
will have unpredictable results. 


2. Only the values 0 and 1 are valid for 
iretcd. A user-exit routine must 
ensure that one of these values is 
used if it changes the return code 
setting. 


Note, too, that the user-written exit 
routine can be written in FORTRAN or in 
assembler language. In either case, it 
must be able to accept the call to it as 
shown above. The user-exit routine must be 
a closed subroutine that pepo sage control to 
the caller. 








If the user-written exit routine is 
written in assembler language, the end of 
the parameter list can be checked. The 
high-order byte of the last parameter will 
have the hexadecimal value 80. If the rou- 
tine is written in FORTRAN, the parameter 
list must match in length the parameter 
list passed in the CALL statement issued to 
the error monitor. 


Actions the user may take if he wishes 
to correct an error are described in Tables 
21, 22 (parts 1, 2, 3), and 23. 


OPTION TABLE CONSIDERATIONS 


When a user-written exit subroutine is 
to be executed for a given error condition, 
the programmer must enter the address of 
the routine into the option table entry 
associated with that error condition. 


Addresses for user-exit subroutines can- 
not be entered into option table entries 
during system generation. An installation 
may, however, construct an option table 
containing user-exit addresses and placed 
that option table into the FORTRAN library. 
(Each address must be specified as a V-type 
address constant.) Use of this procedure, 
though, results in the inclusion, in the 
load module, of all such user-exit sabeour 
tines by the linkage editor. 


If the user-exit address is not speci- 
fied in advance through the use of V-type 
address constants, the programmer must 
issue a CALL ERRSET statement at execution 
time to insert an address into the option 
table that was created during system 
generation. 


The programmer should be warned that 
altering an option table entry to allow 
“unlimited" error occurrence (specifying a 
number greater than 255) may cause a pro- 
gram to loop indefinitely. 


Option Table Default Values 


Table 20 shows the default values for 
the option table. If an option recorded in 
a table entry does not apply to a particu- 
lar error condition, it is shown as not 
applicable (NA). 


The field that is defined as the user- 
exit address also serves as a means of spe- 
cifying standard corrective action. When 
the table entry contains an address, the 
user exit is specified; when it contains 
the integer 1, standard correction is spec- 


ified. It is not possible for the system 
generation process to create an option 
table entry with the user-exit address 
specified. The user exit must be specified 
by altering the option table at execution 
time. To specify that no corrective action 
-- either standard or user-written -- is to 
be taken, the table entry must specify that 
only one error is to be allowed before ter- 
mination of execution. 


HOW TO CREATE OR ALTER AN OPTION TABLE 


As previously explained, the option 
table supplied during system generation may 
be altered dynamically for any particular 
FORTRAN job by the use of the subprograms 
ERRSET and ERRSTR. However, to provide a 
new set of options for the entire installa-~ 
tion, the option table must be reassembled 
and linkage edited into the FORTRAN library 
-- after system generation and before the 
system is used. A procedure for accomp- 
lishing this is described in the following 
text. 


An assembler language macro definition 
can be used to generate an option table. 
The macro definition and use of the macro 
for each option table entry are supplied as 
input to the assembler procedure ASMFCL to 
replace the system-generated option table 
with the new one. An example of an 
assembler language macro definition used to 
generate an option table is shown in Figure 
84. This example may be used as a guide by 
the user. 


In the example, the macro Earomecers are 
as follows: 


PREFACE a,b,c 


a 
is the number of user entries to be 
created. 

b 
is the boundary alignment desired. A 
value of 0 is used for no alignment; a 
value of 1 for alignment. 

c 
is the number of times the SETENT 
macro instruction is to be issued. 
(SETENT is described below.) 

SETENT (a,b,c, 4d) 

a 
is the error entry to be altered. 

b 


is the count of errors to be allowed. 
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(A. specification of 0 indicates un- 
limited error occurrence.) 


c 
is the count of the number of times 
the message should be printed before 
suppression. 

a 


is two hexadecimal digits that specify 
the option bits field. This field is 
described in Figure 83. 


The macro instructions are used as 
follows: 


1. Only one PREFACE macro instruction is 
allowed. 


2. As many SETENT macro instructions as 
are desired may be used. From i to 
200 error entries can be specified in 
the use of a single SETENT macro 
instruction by using continuation 
cards. 


3. Only error entries that differ from 
the default options need be specified. 
The default options will be the same 
as those listed in Table 20. 


4... Error codes must be placed in ascend- 
ing order in the SETENT macro instruc- 
tion. For IBM-supplied entries, error 
codes are in the range 207 to 301. 
User entries are in the range 302 to 
899. 


5... Changing one option for any error 
entry requires that all four parame- 
ters be specified. If default values 
are desired for an entry, they must be 
respecified. For example: 


SETENT (241,50,5, 42) 

indicates that for error 241, the 
number of errors to be allowed is 50; 
the other two parameters, which must 


be specified, are simply the default 
values shown in Table 20. 


ERRORS IN USE OF FACILITY 


When the extended error handling facili- 
ty encounters a condition or a request that 
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requires user notification, an information- 
al message is printed. 


The error monitor is not recursive: If 
it has already been called for an error, it 
cannot be re-entered if the user-written 
corrective routine causes any of the error 
conditions that are listed in the option 
table. Boundary misalignment is therefore 
not allowed in a user-exit routine. 


PROGRAMMING EXAMPLE 


The programming example in Figure 85 
shows how features of the error handling 
facility may be used. 


In the example, a FORTRAN job utilizes a 
user~-supplied library: subprogram that makes 
use Of the error handling facility to 
handle a divide-by-zero situation. A user- 
written routine is supplied to take cor- 
rective action after the detection of the 
error. Comments in the FORTRAN program 
describe what is being done. 


CONSIDERATIONS FOR THE LIBRARY WITHOUT 
EXTENDED ERROR HANDLING FACILITY 


When the extended error handling facili- 
ty is not chosen at system generation, 
execution terminates after the first occur- 
rence of an error, unless it is one caused 
by boundary misalignment, divide check, 
exponent underflow, or exponent overflow. 
The messages for errors 215, 216, 218, 221- 
225, and 241-301 are the same as those with 
the extended error handling facility. The 
other error messages are of the form 
*“IHCxxxI" with no text. 


Without the facility, ERRMON becomes an 
entry point to the traceback routine. User 
programs that call the error monitor do not 
have to be altered. The error message will 
be printed with a traceback map and execu- 
tion will terminate. 


Note, too, that if the facility is not 
selected at system generation, the ERRTRA, 
ERRSET, ERRSAV, and ERRSTR subprograms are 
assumed to be user supplied if they are 
called in a FORTRAN program. 
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Figure 82. Option Table Preface 
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[error | joccur. The maximum setting is 255. When the value of the | 
| occurrences | jexrror count field (below). matches. the value in this field, the| 
[allowed | |job is terminated. A value of 0 means an unlimited number of 


| 
jus. | Joccurrences.? An attempt to set this field at a value greater | 
| | [than 255 results. in the field being set to 0. i 


ape nf nf a a ne 
| Number | 5* |The number of times to print the error message when this error| 
[messages Joccurs. Message printing is suppressed thereafter. A value. | 
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[+The default values shown apply to all error numbers (including additional user 

| entries) unless excepted by a footnote. 

|4Errors 208, 210, and 215 are set as unlimited, and errors 217 and 230 are set to 1. 

|2When the user sets the count of allowed. errors as unlimited, the FORTRAN job may loop 

| endlessly unless the operator intervenes. 

|“Error 210 is set to 10, and errors 217 and 230 are set to 1. 

|SThe entry for error 230 is not modifiable. 

lesege entry is set to 0 except for error numbers 212, 215, 218, 221, 222, 223, 224, se 
225. 
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|. [Option | 42 [Eight obtion bits defined as follows: { 
| [bits | (hexa- |Bit 0: 0 = no control character is supplied for overflow | 
tt |decimal) | lines. | 
feto | { 1 = control character supplied, when needed, to | 
tol { t provide single spacing for overflow lines. { 
1] | | . | 
lt { |The default setting is 0. | 
1 | | . : | 
toi { {Bit 1: 0 = table entry not modifiable.® | 
{| j I 1 = table entry modifable. { 
1] | l | 
{| | |The default setting is 1. | 
it | | a ae | 
[1 ] [Bit 2: 0O = fewer than 256 errors have occurred. | 
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| I i: how many, add -256°to the value contained in the L 
bt q | error count field (above): : oe | 
it I | Pees , 
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‘in| | | to be printed. | 
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1 | { {The default setting is 0. | 
{| { | | 
{4 l [Bit 6: 0 = traceback is not to he printed. | 
{| | | 1 = traceback is to be printed. | 
1 | | | \ 
[i | | |The default setting is 1. | 
1 | | | 
i | { {Bit 7: Reserved for future use. | 
| }-----~-----4--------4-----------------—-------------—---------------------------+4 
| [User { 1 JA value of 1 in this field indicates that no user-supplied 

| fexit jexit is to be taken. If a value other than 1 appears in this 

| 

| 

| 


| 
| 
| 
| 
| 
| 
{ 
{ 
| 
| 
| 
| 
| 
{ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
{ 
| 
| 
I 
| 
| 
{ 
| 
| 
i 
| 
| 
j 
| 
| 
| 
| 
| 
| 
| 
| 
{ 
j 
| 
| 
| 
| 
| 
| 
| 
| 
{ 
| 
| 
I 
| 
| 
| 
| 

| 
| 
| 
| 
| 
| ' 

| l |field, it is the address of the user-supplied exit routine to | | 
| ah 

| 
| 
| 
| 
{ 
| 
I 
| 


Figure 83. Option Table Entry 
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Table 20. Option Table Default Values 


a ES Se ee St eer a ee (SS Se SS Sere : ae 
| ] Number of {Number of | | ‘ipyant | {standard | | 
|Error| Errors | Messages | |Modifiable|Buffer |Traceback|Corrective |User| 
| Code| Allowed | Allowed |Print Control | Entry j|Content| Allowed | Action J Exit | 
[-----+~--------- 4---------4-------------- 4---------- $-------4--------- 4----------- 4----4 
| 207 | 10 | 5 | NA | Yes | NA | Yes | Yes {| No | 
} 208 |Unlimited | 5 | NA | Yes |} WA j Yes | Yes } No | 
{| 209 | 10 | 5 | NA | Yes | NA | Yes | Yes? | Not|{ 
{| 210 |Unlimited | 10 | NA | Yes j; NA | Yes | Yest | No | 
{ 211 | 10 | se) | NA | Yes | NA | Yes | Yes | No | 
} 212 | 10 | 2, |No character | Yes | Yes | Yes | Yes | No | 
| | | | supplied? | | | | | | 
{| 213 | 10 | 5 | NA | Yes | NA | Yes | Yes | No | 
| 214 | 10 | 5 | NA | Yes | NA | Yes | Yes {| No | 
| 215 |Unlimited | 5 | NA | Yes {| Yes | Yes | Yes | No | 
{| 216 | 10 { 5 { NA | Yes { NA { Yes { Yes3 { No | 
| 217 | BB | 1 | NA | Yes | NA | Yes | Yes | No | 
| 218 | 10S | 5 | NA | Yes | Yes*® | Yes | Yes {| No | 
| 219 | 106 | 5 | NA | Yes | NA | Yes | Yes | No | 
{| 220 | 10 { 5 | NA { Yes {| NA | Yes | Yes | No | 
| 221 | 10 | 5 | NA | Yes | Yes | Yes | Yes | No | 
{| 222 | 10 | D | NA | Yes | Yes | Yes | Yes | No | 
{| 223 | 10 | 5 | NA | Yes {| Yes | Yes | Yes } No | 
| 224 | 10 | 5 | NA | Yes | Yes | Yes | Yes { No | 
{ 225 | 10 | 5 | NA | Yes | Yes | Yes | Yes | No | 
| 230 | 1 | 1 | NA | No | NA | Yes | No | No | 
| 231 | 10 | 5 | NA | Yes | NA | Yes | - Yes | No | 
} 232 | 10 | 5 | NA | Yes | NA l Yes | Yes | No | 
| 233-| 10 | 5 | NA | Yes {| NA | Yes | Yes {| No | 
| 301| | | | | | | | I 
eeaemate: 4... -----4L___._-_--_-- 4 
J*No corrective action is taken except to return to execution. For boundary alignment, | 
| the corrective action is part of the support for misalignment. For divide check, the , 
| contents of the result register are not alitered. | 
|#If a print control character is not supplied, the overflow line is not shifted to | 
| incorporate the print control character. Thus, if the device is tape, the data is | 
| intact, but if the device is a printer, the first character of the overflow line is | 
j; not printed and is treated as the print control. Unless the user has planned the | 
| overflow, the first character would be random and thus the overflow print line control] 
| can be any of the possible ones. It is suggested that when the device is a printer, | 
{| the option be changed to single space supplied. | 
| 3Corrective action consists of return to execution for SLITE. | 
|“It is not considered an error if the END parameter is present in a READ statement. No| 
| message or traceback is printed and the error count is not altered. | 
|SFor an I/O error, the buffer may have been partially filled or not filled at all when | 
| the error was detected. Thus, the buffer contents could be blank when printed. When | 
| an ERR parameter is specified in a READ statement, it is honored even though the error| 
| occurrence is greater than the amount allowed. | 
|}®The count field does not necessarily mean that up to 10 missing DD cards will be | 
| detected in a single debugging run, since a single WRITE performed in a loop could | 
| cause 10 occurrences of the message for the same missing DD card. | 
ac a ca a ec a la aa ag a aero are hie ees ae on ee aaa J 
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Table 21. Corrective Action After Error Occurrence 


t Standard Corrective Action 
{Treat format field containing C as 
{end of FORMAT statement 


{Input: Ignore remainder of I/0 
[list. 

[Output: Continue by starting new 
joutput record. Supply carriage 
Jcontrol character if required by 
{Option Table. 


Ignore remainder of I/O list 


|input: Ignore remainder of I/0 
[list. 

JOutput: If unformatted write 
[initially requested changed record 
[format to VS (or VBS). If. formatted 
{write initially requested, 

Jignore I/0. 


|Substitute zero for the invalid 
|character. 


| 


Increment FORTRAN sequence number 
and read next file 


Ignore remainder of I/O list 


Ignore remainder of I/O list 


character 


Ignore remainder of I/0 list 


Ignore remainder of I/O list 


mine casey ne Atm ces re Ka semen emnhe Ree mi Sen nN, 


hs ii ios ma a 


c (see Note 1). 


5 
bd 


See Note 2 


See Nore 2 


Ae A A OO AE SO SONNE me HE NE am een HON enti Sete cmt felt ste nn JO SOUTER citees senttEh Seem its 


User-Supplied Corrective Action 


a es a ee St Se i sm rc ite sa so 


(a) If compiled FORMAT statement, put 
hexadecimal equivalent of character in|] 


If variable format, move EBCDIC 
character into C (See Note 1) 


If user correction is requested, the 
remainder of the I/O list is ignored. 


|The character placed in E will be sub- 
[stituted for the invalid character 
{I/O:operations may not be performed. 


| (see Note.1) 


See Note 2 


See Note. 2 


See Note 2 


{The character pisces in E will be sub- 
[stituted for the invalid character 


| (see Note 1) 


| 
| 
|See Note 2 


| 
[See Note 2 


Change record number to list maximum|See Note 2 


allowed (32,000) 


{ 

| 

| 

i 

| 

| 

| 

{ 

| 

\ 

| 

| 

| 

[Substitute zero for the invalid 
| 

{ 

| 

{ 

| 

| 

| 

l 

{ 

- 
| Ignore remainder of. I/O list 
a 


(Senay eaus ee 
{ jParametera| 
|Error| Passed to| 
|code | User 
}-----}~-------—- 
{ 211 | A,B,C 

| 1 

| | 

| | 

| | 

| | 

| | 

[212 {| A,B,D 

| | 

{ | 

| | 

| | 

| | 

| | 

{ { 

| 213 | A,B,D 

\ | 

| | 

} 214 | A,B,D 

| | 

| | 

| { 

| | 

{ { 

I | 

| \ 

| I 

{| 215 | A,B,E 

| ee 

| | 

l A 

| I 

| i 

|.217 | A,B,D 

| | 

Vestal 

| 218+] A, B,D,F 
| I 

| | 

| 219-[{ A,B,D 

|. 224} 

| | 

l l 

| 225 | A, BsE 
| I 

| \ 

| i 

| | 

| 231 | A,B,D 
232 A,B,D,G 
| | 
{| 233 | A,B,D 

| | 

1 \ 

| 234-| A, B,D 
} 236} on 
i | 

} 237 | Ay By Dy F 


| Meanings: 
I 


{A - Address of 
{B - Address of 
|C - Address of 
{D> - Address of 
JE - Address of 
{F - Address of 
{|G - Address of 


[Notes: 


1. Alternatively, the user can set the return code to 0, thus requesting a standard corrective 


action. 


[2gnere remainder of I/O list 


return code field. (Integer#4) 

error number (Integer*4) 

invalid format character (Logical*1) 
data set reference number (Integer*4) 
invalid character (Logical+#1) 

DECB 

record number requested (Integer *4) 


| 


| 
[See. Note 2 
{ 


| 
|See Note 2 


2. The user can do anything he wishes except perform another I/O operation - i.@., issue a 
READ, WRITE, BACKSPACE, END FILE, REWIND, PAUSE, 


fI£ error condition 218 (I/O error detected) occurs while error messages are being written on the 


object error data set, the message is written on the console and the job is terminated. 


PDUMP, DBUG, or ERRTRA. 


On return to the 


If no DD card has been supplied for the object error unit, error message IHC219I is written on 
the SYSOUT data set and the job is terminated. 


| 
| 
| 
I 
| Library, the remainder of the I/O request. will be ignored. 
| 
| 
| 
| 
| 
l 


| 
! 
' 
{ 
t 
| 
{ 
{ 
( 
\ 
{ 
| 
{ 
( 
| 
\ 
{ 
( 
! 
{ 
{ 
{ 
{ 
| 
1 
| 
t 
| 
{ 
' 
1 
! 
t 
| 
' 
t 
t 
J 
t 
t 
! 
t 
' 
wd 


{ 
| 
| 
1 
i 


C sdicpatommralommendcaemnicanateecsatucaae tenelane tasaimemeicr dann tammetamantanastenns kame taresammaennmteaerkcoetarmdendie re ctemat  ratere iret ne ee 


Table 22. Corrective Action After Mathematical Subroutines Error Occurrence (Part 1 of 3) 
re: a aaa anc ate 5 dearest an ToS ee ee ee me 
| | | | Options , | 
| | | fatten nnn i geeegetnimetrs ~-=-- 4 
| | | Invalid | Standard User-Supplied 
[Error | FORTRAN | Argument | corrective | corrective Action | 
{code | Reference | Range { Action | (See Note 1) | 
}------- }--~---------------- $------------------ ------------------------ 4-----------------——-- j 
| 216 | CALL SLITE (1) | I>4 | The call is treated | I | 
l | i | as a no operation | { 
| | | | I | 
| 216 | CALL SLITET | I>4 | J=2 } «I j 
| | (1,9) | | | | 
| | | | | | 
| 241 | K=I#*7 | I=0, J<0 | K=0 ES, oa | 
\ | \ \ | | 
| 242 | Y=x#4I | x=0, I<0 | Y=0 | X,1I | 
| | | | | | 
| 243 | DA=D*4I | D=0, I<0 | DA=0 | D,I | 
| | | | | { 
| 244 | XA=xX##y | x=0, Y<0 | XA=0 | X,Y { 
| | \ | | | 
|} 245 | DA=D**DB | D=0, DB<O | DA=O |  D,DB | 
| | | | | | 
T 246 | CA=C##I | C=0+0i, I<0 | CA=0+0i it yk | 
| | | | | | 
{| 247 | CDA=CD4I | c=0+0i,1I<0 | CA=0+0i | cD,I | 
l | | | | | 
{ 251 | Y=SORT (xX) | x<0 | Y=|x[{+/2 | x | 
| | | { | | 
{ 252 | Y=EXP (xX) | X>174.673 | Y=* | xX | 
| i | | | | 
| 253 | Y=ALOG (Xx) | x=0 | Y=-* { x | 
| | | x<0 { Y=lLogi1o0{X| | x | 
| | | i | | 
| | Y=ALOG10 (XxX) | x=0 | Y=-* | x | 
| | | x<0 | y=log,olx] | x | 
| | | | | | 
{| 254 | y=cos (x) | [X]222847 | Y=Vv272 { «x | 
| } Y=SIN (X) i I | | 
| | | l | | 
| 255 | Y=ATAN2 (Xx, XA) | X=0, XA=0 | Y=0 |} X,XA | 
| I I | a | | 
{| 256 | Y=SINH (X) | [X[|2174.673 | Y=* | x | 
| | Y=COSH (X) | { | | 
| | | | | | 
| 257 | Y=ARSIN (xX) } |xpo. | Y=* . | | 
Y=ARCOS (X) (25 X>1.0; AREER OOS. ! 
| | | | IF X<-1.0; ARSIN(X)=-2| 
\ \ | ‘ 2\ | 
| | | | ( IF X>1.0; ARCOS(X)=0 | | 
| t | | | | 
| | | | (| IF X<-1.0; ARCOS(X)="| xX | 
| | I I | | 
| | | I | | 
} 258 | Y=TAN (X) | )Xp2C228) ea } Y=1 | xX | 
| | Y=COTAN (X) | | 7 | | 
| | | | | | 
{ 259 | Y=TAN (xX) | X is too close | -y=* | x | 
1! | |. to an odd | | | 
| | | multiple of % | | | 
| I | 2 | | | 
Losec ess ME Soe ene Be Ss Rs Boos be See See he cee 4 
| Variable Type | 
[I,J _ Variables of INTEGER*4 | 
|X, XA, ¥ Variables of REAL*4 | 
| D, DA, DB Variables of REAL#8 | 
|C,CA Variables of COMPLEX*8 | 
| Ze X%ae Xo Complex variables to be given the length of the functioned argument when | 
| they appear | 
tcp Variables of COMPLEX*16 
|INotes: 1. The user-supplied answer is obtained by recomputation of the function | 
using the value set by the user routine for the parameters listed. 
| 2. The largest number that can be represented in floating point is | 
indicated above by *. | 
S00 ys mae em si ism sin sit ie a wesc seb mss. cms in. ih nv Gis. nin an. ai: cist snmp wine's sh hv inh‘ ww I ‘sia dm si csi tr sb An Suh Sms se in nnn emit Gu im an ii sini i i nc‘ usc it sa nin’ 4 


Extended Error Handling Facility 133 


Table 22. Corrective Action After Mathematical Subroutines Error Occurrence (Part 2 of 3 
Re oe ae ee hee a eR TS a EC ee eg eee en ee ey 
| | | | Options | 
| i | ee Te eer ee 4 
| i | Invalid | Standard | User-Supplied { 
jError | FORTRAN | Argument | Corrective | Corrective Action | 
| Code i Reference | Range | Action | (See Note 1) | 
 eictaciacee ace aaa ham a ae yas hvee 7a dae en aaaTS 5 iatennnane raat a Rteteeeeee near | 
i I | | | | 
i {| Y¥Y=COTAN (X) {| X is too close | Y=* | xX | 
| | j to a multiple | | | 
I | | of x | | | 
i i | i | | 
{ 261 | DA=DSORT (D) | D<O {| DA=|D|+/2 | D | 
| | | | 
{| 262 | DA=DEXP (D) {| D>174.673 {| DA=* | D | 
| | i | | | 
{| 263 | DA=DLOG (D) | D=0 | DA=-* | D | 
| ; D<0 DA=log|{X| ! | 
| 
{ | DA=DLOG10 (D) | D=0 | DA=-+ | D | 
| i | D<0 | DA=logi0[X| | | 
| I i | = | { 
| 264 | DA=DSIN (D) | |D[ 225°#x | DA=V2/2 | D | 
i | DA=DCOS (D) | | | | 
| i { | | | 
| 265 | DA=DATAN2(D,DB) | D=0,DB=0 j DA=0 | D, DB | 
| i i | . | | 
| 266 [| DA=DSINH (D) | [D}2174.673 | DA=* | D | 
| | DA=DCOSH (D) | | | | 
| i i { { | 
{| 267 | DA=DARSIN (D) | |Dp>L | DA=0 | D | 
i | DA=DARCOS (D) { | a | | 
i i | | ee | 1. 
| 268 | DA=DTAN (D} { [X[22504# 2% | DA=1 | D | 
{ | DA=DCOTAN (D) | | | | 
i | i | bey | | 
| 269 | DA=DTAN (D) | D is too close | DA=* | D | 
| | | toanodd as | ©: | | 
| | | multiple of 2 | I | 
| i \ { | | 
i | DA=DCOTAN (D) | D is too close | DA=*. | D | 
i { | | | | 
| | | | | 
l | 
| | 
| | 
| 2742 Z=CEXP (C) X4>178.673 2=+ (COS Xat+ SIN Xa) Cc | 
| . | 
b 272 Z=CEXP (C) [Xo [222840 2=04+0i c | 
i | 
| 273 Z=CLOG (C) C=0+0i Z=-*40i c | 
ESR enc setyee Bee POE EA Seg ee Ie MPR SSE ATED EG RIPE EOE EEN ey SCY SE mer SS ete Mt (PC TO Oy OME) GN Sena em en Re cn ee Eee 
| Variable Type | 
{I,J Variables of INTEGER*4 | 
|X, XA,¥ Variables of REAL*4 iat 
| D, DA, DB Variables of REAL*8 | 
jC, CA Variables of COMPLEX*8 I 
| ZeXa—9X%a Complex variables to be given the length of the functioned argument when | 
| they appear | 
ped Variables of COMPLEX*16 | 
SEs is eed Rt Sg EE ev Pn Ci RL Pap CRT ae ee | 
Notae 1. The user-supplied answer is obtained by recomputation of the function |. 
t using the value set by the user routine for the parameters iisted. Ae 
I | 
| 2. The largest number that can . be represented in floating point is indicated | 
| above by *. | 
Cech eee ae a A oe a wee ee te ea ue ee eo ol J 
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to a multiple 
of x 


For errors 271 through 275, C=X4tiX, 
SEHES HER SEEE ERE EEE EERE E EEE EERE EEEEEE EEE ERAS EA AE AEEEESEEEESEEESEESEEEES EE EERE EERE EERE ERED 


BHREREERER AREER SEHEREE EEE EEE EH AEERE EEE EREESEAERESEAREEE ESE EEEEEE SESE EERE EEE EERE EEEEEE EERE ES 


Corrective Action After Mathematical Subroutines Error Occurrence (Part 3 of 3) 





[See S Sa eae ac alea a laeee ac acer aaa te ee ee ee ee ee ee 
i | | | Options | 
| | | o-----+--- == ==" = - $+ === === 
| | Invalid | Standard | User-Supplied | 
|Error | FORTRAN | Argument | Corrective | Corrective Action | 
| Code | Reference | Range | Action | (See Note 1) | 
p----~--}------------------}-- === - ~~ - == === 
| | | | | | 
|] 278 | Z=CSIN (c) | | Xq} 2228 | 2=0+01 | c | 
| | z=ccos (Cc) | | | 1 
| | 
| 275 | Z=CSIN (c) | X2>174.673 | Z=*(SIN X,+iCcoSs X,) | c i 
| | i i 2 | | 
| | | | | | 
| j z=ccos (Cc) | | Z=*(COS X,-iSIN X,) | Cc | 
| | | | 2 | | 
| | | | | | 
| | Z=CSIN (Cc) | Xg<-174.673 | Z=*(SIN X,-icoS X4) | “€ | 
| i | } 2 | | 
| | | | 
| j z=ccos (Cc) | | Z=*(COS X,+iSIN X,) | c | 
| { {| 2 he | 
[FSS ERRS REESE REET EE ERAE EASE EEE AEEEEESER EEE REESE SE SEEEEEEERES EES EEEEEEEESEREREES EEEEEEEEEREEEE EES | 
{| For errors 281 through 285, CD=X,+tiXa, { 
[*sensesseteseesssesseesecersngseseastes ches eeeahy ener geass see sae ssee ssa esenstndsoesessrecseess see 
| | | | | 
{| 281 | Z=CDEXP (cD) | Xq>174. 673 | Z=*(COS X3+iSIN Xa) | cD | 
| | | | | | 
| 282 | Z=CDEXP (CD) {| [X2}[225°* | Z=0+0i | cD j 
| | | 1 | | 
|} 283 | Z=CDLOG (cD) | CcD=0+0i | Z=-4*4+0i | cD | 
1 | i | | | 
| 284% | Z=CDSIN (CD) | [%s]225°# {| Z=0+0i. | cD | 
| z=cDCOS (CD) | l | | 
| { ies | | 

| 285 | Z=CDSIN (cD) | X2>174.673 | 2=*(SIN X,+icos xX,) | cD | 
| | . = Le ee | | 
I I i bo | | 
| | z=cDcos (cD) | _ | Z=*(COS X,-iSIN X,) | cD | 
I | | : |. 2 | | 
| | | leoeeen | | ies | | 
| | Z=CDSIN (CD) | X2<-174.673 | 2=*(SIN X,-icos X,) | cD | 
| I I { 2 { { 
| | | ae | | | 
| | z=cDCcOSs (cD) | | Z=*(COS X,+iSIN X,) | cD | 
| | | | 2 | | 
\ | | . \ | \ 
| 290 | Y=GAMMA (xX) | X<2-252 or | Y=* | x | 
| | | X257.5744 | | | 
| I i | | | 
{ 291 | ¥Y=ALGAMA (X) {| X<0 or | Y= | Xx | 
| | | X24. 2937#1075 | | | 
| | | | | | 
{ 300 | DA=DGAMMA (D) | D<2-252 or | DA=* | D | 
| | | D257.5774 | | | 
| | | | | | 
} 301 | DA=DLGAMA (D) } Ds<O or | DA= | D | 
| | | D224. 2937410753 | | | 
pr--- ~~ scien a i iis acl cons si cai sc i ee a Spon cm el a eh Simca ein ot ae Oe ante ot ce se nie te i pee t. TOT SERS ee SE ND ae ae me AE GS A ne ne aE A ST Ans AED RN AE NE i 4 
| Variable e | 
{1,7 Variables of INTEGER*?4 I 
|X, XA, Y Variables of REAL*4 | 
| D, DA, DB Variables of REAL*8 | 
[C,CA Variables of COMPLEX*8 | 
|Z, XaeXa Complex variables to be given the length of the functioned nt ae when they appear | 
[cD Variables of COMPLEX*16 I 
a ta a Sh ag cS i cat ea el apt a 4 
iINotes: 1. The user-supplied answer is obtained by recomputation of the function using the value| 
| set by the user routine for the parameters listed. | 
I 2. The largest number that can be represented in floating point is indicated above by *. | 
i ha eas ah ee el at aaa a a as Ra il le Sl i aa 4 
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Table 23. Corrective Action After Program Interrupt Occurrence 
Cr Se ee ee See ere ee ee i aaa aaa carrie me ry ee a ey me 1 





mine the amount of the underflow or overflow. The 
value in I is not the true exponent, but what was 

left in the exponent field of a floating point number 
after the interrupt. 


f}-~-------- +--+ -- - - ee ee me ee Oe ME he SY A LI A LE A I A SO SO AO SE EY A YO a A SN A EY ER WEERS D 


\ 
| 
| 
| value for the number in D. It may be used to deter- 
| 
| 
| 
| 


| Program Interrupt Messages | Options | 
tp cl wii a i pi apt pa cee ree 4--——--— + --- i a a ac aaa 
| | Parameters | | | User-Supplied | 
jError|Passed to | | | Corrective | 
|code |User Exit | Reason for Interrupt+ |Standard Corrective Action | Action | 
}-----4--~-------+-4---------------- +--+ ------ 4 +--+ -- -- +--+ +--+ +--+ + + 
{| 207 | D,I |Exponent overflow |Result register set to the |User may alter | 
| | | (Interrupt Code 12) Jlargest possible floating |D.2 | 
| | | {point number. The sign of | | 
| | | jthe result register is not | | 
| { | jaltered. | | 
{ | \ 
| 208 | D,I jExponent underflow {|The result register is set |User may alter 
| | { (Interrupt Code 13) |to zero. |D.2 | 
| { | 
| 209 | D,1* {Divide check, Integer {There is no standard fixup.|See Note 5. | 
| | jdivide (interrupt Code 9), {Result registers are not | | 
| | {Decimal divide (Interrupt |[touched. | | 
| | {code 11), Floating point | | ; 
| | {divide (Interrupt Code | | | 
| | J15).3 | | { 
I I | I l | 
{| 210 | None {Specification interrupt {No special corrective |See Note 5. | 
| | | (Interrupt Code 6) occurs Jaction other than correct- | | 
| ] |for boundary misalignment. |ing boundary misalignments. | I 
| | |Other interrupts occur | . { | 
I | jduring boundary alignment | | | 
| | jadjustment. They will be | | | 
| | {shown with this error code]. | | 
| | jJand the PSW portion of the| | | 
{ | {message will identify the | { | 
| | jinterrupt. { | | | 
ba Bo ae a ee a E) Ceaier eee a en a) yn ee ea ee Oe Eee i Siege nea sen nae Se 4 
Variable Type Description | 
D A variable REAL*8 This variable contains the contents of the result | 
register after the interrupt. | 
I A variable INTEGER*4& This variable contains the "exponent" as an integer | 
| 
| 
I 
| 
| 
4 


[4A program interrupt occurs asynchronously. Interrupts are described in IBM System/360 
| Operating System: Principles of Operation, Form A22-6821. 


2The user exit routine may supply an alternate answer for the setting of the result 
register. This is accomplished by placing a value for D in the user-exit routine. 
Although the interrupt may be caused by a long or short floating-point operation, the 
user-exit routine need not be concerned with this. The user-exit routine should 
always set a REAL*8 variable and the FORTRAN library will load short or long depending 
upon the floating-point operation that caused the interrupt. 


| 

| 

| 

| 

| 

{|?For floating-point divide check, the contents of the result register is shown in the 
| message. 

epee integer and decimal divide checks, no parameters are passed to the user exit 

| routines. 

| 
| 
| 
| 


5The user-exit routine does not have the ability to change result registers after a 
divide. check. The boundary alignment adjustments are informational messages and there 
is nothing to alter before execution continues. 


| 
| 
| 
| 
i 
l 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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//OPTAB JOB 1,*SAMPLE MACRO‘ ,MSGLEVEL=1 CREATE IHCUOPT 
//VERI EXEC. ASMFC,PARM.ASM=NODECK 
//ASM.SYSIN DD * 
MACRO 
PREFACE 6GADENT, &ADJST, &SETENT 
THIS MACRO GENERATES THE PREFACE TO THE OPTION TABLE AND SETS 
GLOBALS FOR SUBSEQUENT CALLS TO THE SETENT MACRO 
THE USE OF THIS MACRO GENERATES AN OPTION TABLE AS DEFINED BY IBM 
AND ALLOWS CHANGES TO INDIVIDUAL ERROR NUMBERS AS DESIRED, BY USE 
OF SETENT 
GBLA &COUNT, 6TOTAL, 6SETNR 
LCLA 6A 
THCUOPT CSECT 
éSETNR SETA 6SETENT 
&COUNT SETA 207 ERROR NUMBER OF FIRST ENTRY IN TABLE 
éTOTAL SETA &sADENT+301 NUMBER OF LAST ENTRY IN TABLE 
&A SETA SADENT+95 
pe F'éa' TOTAL NUMBER OF ENTRIES IN TABLE 
pc B‘OSADIST,000000° 
pe AL3 (0) 
MEND 
MACRO 
SETENT EE 
GBLA GéCOUNT, TOTAL, &SETNR 
LCLA 6&B 
6B SETA 1 
6SETNR SETA &SETNR-1 
«AGAIN ANOP START OF LOOP TO GEN ONE ENTRY IN TABLE FOR ERROR NUMBER 
AIF (6COUNT GT &TOTAL).MEND HAVE ALL. ENTRIES BEEN CREATED 
AIF (6B LE N'&SYSLIST) .TEST 
AIF (€SETNR EQ 0).DEFAULT 
MEXIT 
eTEST ANOP 
.* IP THERE IS NO USER SUPPLIED INFO FOR THIS ERROR NO TAKE DEFAULT 
AIF (SSYSLIST(&B,1) NE ECOUNT) .DEFAULT 
ERRECOUNT DC AL1 (ESYSLIST(€B,2)) NUMBER OF ERRORS TO ALLOW FR SETENT 
pc AL1 (€SYSLIST(&B,3)) NO OF MSGS TO PRINT FROM SETENT 


a eon ane 


eee ee 


be x'oot 
pec X'&ESYSLIST(6B,4)* OPTION BITS SUPPLIED BY SETENT 
pec Ft 

éCOUNT SETA &s&COUNT+1 

&B SETA &B+1 


AGO «AGAIN RETURN TO LOOP 
»DEFAULT ANOP IBM DEFAULTS FOR ERRORS NOT INDICATED BY SETENT 
«* IBM SPECIAL CASES FOR MESSAGE COUNT 

AIF (€COUNT EQ 208).UNLIM 

AIF (COUNT EQ 210).UNLIM 

AIF (COUNT EQ 215).UNLIM 

AIP (8COUNT EQ 217) .ONE 

AIF (sCOUNT EQ 230).ONE 
ERRECOUNT DC AL1 (10) 

»BACK1 ANOP 
pc AL1(5) 
«BACK2 ANOP 
. bc x'o0' 
a? IBM SPECIAL CASES FOR OPTION BITS 

AIF (COUNT EQ 212) .SPBITS 

AIF (&COUNT EQ 215).SPBITS 

AIF (éCOUNT EQ 218).SPBITS 

AIF (sCOUNT. EQ 221).SPBITS 

AIF {sCOUNT EQ 222).SPBITS 

AIF {SCOUNT EQ 223) .SPBITS 

AIF (sCOUNT EQ 224) .SPBITS 

AIF (COUNT EQ 225).SPBITS 

pe x'42? 

AGO «CONT 
-SPBITS DC X'52! 

«CONT ANOP 

pe Bri 
sCOUNT SETA &COUNT+1 

AGO -AGAIN RETURN TO LOOP 
»~UNLIM ANOP 
ERR&COUNT DC AL1(0) 

AIF (&COUNT NE 210).BACK1 

pe AL1(10) 

AGO » BACK2 


~ONE ANOP 
ERR&COUNT DC AL1(1) 
pc AL1(1) 
AIF (ECOUNT EQ 217) .BACK2 
pc x'oo' 
pc x'02' 
AGO +CONT 
«MEND ANOP 
MEND 
: END OF MACRO DEFINITION 
: EXAMPLE OF THE USE OF THE MACRO 


PREFACE 50,1,2 
SETENT (220,5,2,21),(235,10,5,42) ,(255,2,0,4) 
SETENT (300,56,65,3) 
END 
ut 


END OF DATA 











Letees 


Figure 84. Example of Assembler Language Macro Definition Used To Generate Option Table 
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//SAMPLE JOB 1,SAMPLE, MSGLEVEL=1 
//STEP1 EXEC FORTHCLG 
//FORT.SYSIN DD * 
Cc MAIN PROGRAM THAT USES THE SUBROUTINE DIVIDE 
COMMON E 
EXTERNAL FIXDIV 
Cc SET UP OPTION TABLE WITH ADDRESS OF USER EXIT 
CALL ERRSET(302,30,5,1,FIXDIV) 
E=0 
Cc GET VALUES TO CALL DIVIDE WITH 
READ (5,9)A,B 
IF(B) 1,2,1 
2 E=1,0 
1 CALL DIVIDE(A,B,C) 
WRITE(6,10)C 
9 FORMAT (2E20. 8) 
10 FORMAT ('1' ,E20.8) 
STOP 
END 
SUBROUTINE DIVIDE(A,B,C) 


Cc ROUTINE TO PERFORM THE CALCULATION C=A/B 
c IF B=0 THEN USE ERROR MESSAGE FACILITY TO SERVICE ERROR 
Cc PROVIDE MESSAGE TO BE PRINTED 
DIMENSION MES (4) 
DATA MES (1)/12/,MES(2)/' DIV'/,MFS(3)/'302I/,MFS(4)/' B=0'/ 
DATA RMAX/27FFFFFFF/ 
Cc MESSAGE TO BE PRINTED IS 
Cc DIV302I B=0 
Cc ERROR CODE 302 IS AVAILABLE AND ASSIGNED TO THIS ROUTINE 
Cc STEP1 SAVE A,B IN LOCAL STORAGE 
D=A 
E=B 
c STEP2 TEST FOR ERROR CONDITION 
100 IF(E) 1,2,1 
Cc NORMAL CASE -- COMPUTE FUNCTION 
1 =D/E 
RETURN 
Cc STEP3 ERROR DETECTED CALL ERROR MONITOR 
2 CALL ERRMON (MES, IRETCD, 302,D,E) 
c STEP 4 BE READY TO ACCEPT A RETURN FROM THE ERROR MONITOR 
IF (IRETCD) 5,6,5 
Cc IF IRETCD=0 STANDARD RESULT IS DESIRED 
Cc STANDARD RESULT WILL BE C=LARGEST NUMBER IF D IS NOT ZERO 
c CR C=0 IF E=0 AND D=0 
6 IF(D) 7,8,7 
8 c=0.0 
GO TO 9 
7 C=RMAX 
9 RETURN 
Cc USER FIX UP INDICATED, RECOMPUTE WITH NEW VALUE PLACED IN E 
5 GO TO 100 
END . 
SUBROUTINE FIXDIV(IRETCD,INO,A,B) 
Cc THIS IS A USER EXIT TO SERVE THE SUBROUTINE DIVIDE 
Cc THE PARAMETERS IN THE CALL MATCH THOSE USE IN THE CALL TO 
Cc ERRMON MADE BY SUBROUTINE DIVIDE 
c STEP1 IS ALTERNATE VALUE FOR B AVAILABLE -- MAIN PROGRAM 
Cc HAS SUPPLIED A NEW VALUE IN E. IF E=0 NO NEW VALUE IS AVAILABLE 
COMMON E 
IF(E) 1,2,1 
c NEW VALUE AVAILABLE TAKE USER CORRECTION EXIT 
1 B=E 
RETURN 
Cc NEW VALUE NOT AVAILABLE USE STANDARD FIX UP 
2 IRETCD=0 
RETURN 
END 
/* 
//GO.SYSIN DD * 
Pat 0. TE00 0.0E00 
/* 


¢ Figure 85. Sample Program Using Extended Error Handling Facility 
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FORTRAN can be invoked by a problem pro- 
gram through the use of the CALL, ATTACH, 
or LINK macro instructions. 


The program must supply to the FORTRAN 
compiler: 


e The information usually specified in 
the PARM parameter of the EXEC 
statement. 


e The ddnames of the data sets to be used 
during processing by the FORTRAN 


compiler. 
oa A ee 
{Name | Operation |Operand | 


t— 
Haesadl pote \ | EP=compiler-name, 


| 
| | (ATTACH) | PARAM=(optionaddr | 
| | | (,ddnameaddr}), VL=1 | 
| | | | 
| (name] | CALL |IEKAA0O, (optionaddr | 
I | | (,ddnameaddr}),VL | 
oe a ee Beare | 
compiler-name 


specifies the program name of the com- 
piler to be invoked. IEYFORT is spec- 
ified for FORTRAN IV (G); IEKAA00, for 
FORTRAN IV (H). 


optionaddr 
specifies the address of a variable 
length list containing information 
usually specified in the PARM parame- 
ter of the EXEC statement. 


The option list must begin on a half- 
word boundary. The two high-order 
bytes contain a count of the number of 
bytes in the remainder of the list. 

If there are no parameters, the count 
must be zero. The option list is free 
form with each field separated by a 
comma. No blanks should appear in the 
list. 


Appendix A: 


APPENDIX A: INVOKING THE FORTRAN COMPILER 


ddnameaddr 
specifies the adtreds of a variable 
length list containing alternate 
ddnames for the data sets used during 
FORTRAN compiler processing. This 
address is supplied by the invoking 
program. If standard ddnames are 
used, this operand may be omitted. 


The ddname list must begin on a half- 
word boundary. The two high-order 
bytes contain a count of the number of 
bytes in the remainder of the list. 
Each name of less than eight bytes 
must be left justified and padded with 
blanks. If an alternate ddname is 
omitted from the list, the standard 
name is assumed. If the name is 
omitted within the list, the 8-byte 
entry must contain binary zeros. 

Names can be completely omitted only 
from the end of the list. 


The sequence of the 8-byte entries in 
the ddname list is as follows: 


je 
=] 
oases unnl 


Alternate Name 
~ SYSLIN : 

00000000 — 

00000000 

00000000 

SYSIN 

SYSPRINT 

SYS PUNCH 

SYSUT1 

SYSUT2 





VL=1 or VL 


specifies that the sign bit of the 
last full-word of the address parame- 
ter list is to be set to 1. 
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APPENDIX B: EXAMPLES OF JOB PROCESSING 


The following examples show several 
methods to process load modules. 


Example 1 


Problem Statement: A previously created 
data set SCIENCE.MATH.MATRICES contains a 
set of 80 matrices. Each matrix is an 
array containing real*4 variables. The 
size of the matrices varies from 2x2 to 
25x25; the average size is 10x10. The 
matrices are inverted by a load module 
MATINV in the library MATPROGS. Each 
inverted matrix is written (assume FORMAT 
control) as a single record on the data set 
SCIENCE.MATH.INVMATRS. The first variable 
in each record denotes the size of the 
matrix. 


SCIENCE, 
MATH. 
INVMATRS 





Printed 
Output 


Figure 86, Input/Output Flow for Example 1 
The I/O flow for the example is shown in 

Figure 86. The job control statements used 

to define this job are shown in Figure 87. 


read the input data set.) 


inverted matrices.) 


Explanation: The JOB statement identifies 
the programmer as JOHN SMITH and supplies 
the account number 537. Control statements 
and control statement error messages are 
written in the SYSOUT data set. 


The JOBLIB DD statement indicates that 
the private library MATPROGS is concate- 
nated with the system library. 


The EXEC statement indicates that the 
load module MATINV is executed. 


DD statement FTO8F001 identifies the 
input data set, SCIENCE.MATH. MATRICES. 
(Data set reference number 8 is used to 
Because this 
data set has been previously created and 
cataloged, no information other than the 
data set name and disposition has to be 


‘supplied. 


DD statement FT10F001 identifies the 
printed output. (Data set reference number 
10 is used for printed output.) 


DD statement FTO4F0O01 defines the output 
data set. (Data set reference number 4 is 
used to write the data set containing the 
Because the data set 
is created and cataloged in this job step, 
a complete data set specification is 
supplied. 


The DSNAME parameter indicates that the 
data set is named SCIENCE. MATH. INVMATRS. 
The DISP parameter indicates that the data 


Sample Coding Form 








ti-20 21-30 a= 
Teal SOSA PISO si TIO 


//INVERT JOB 23,79 OHNSMITH »MSG, »MSGLEVEL= 





Bicitet 





| Se ae eS ee 
3 (sre 71S/S10H 2a Sel TBISIO{ 2S Set 18/910 TISTaISIe 7BISTO 





een ree 





//JOBLIB DD DSNAME= ATPROGS»D1SP= >= OLD ' 


|LINVERT, EXEC, PGM=| 





MATINV, | 


//FTG8FOO1, DD DSN AME = =SCIE ene “MATRI CESsDISP= oD 
//FTAGFOO1, OD SYSOUT= “A 


//FT@4FOO1, DD DSNAME=SCIENCE .MATH- | TNYMATRS 3 

A} DISP=(NEW> ATLG ) 9UNIT = DACLASS 2VOLUME=SER=1089W 

it 11. SPACE, (4989((8B99).9 RLSE 9 CONTIG ROUND) 9SEP,- =FTOSF OO!» 
Al DCB= =(R RECFM=VB)LRECL= 2504» BLKSIZE=2508 


i 


soos Wome wae 








Figure 87. 
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Job Control Statements for Example 1 


set is new and is to be cataloged. The 
SPACE parameter indicates that space is 
reserved for 80 records, 408 characters 
long (80 matrices of average size). When 
space is exhausted, space for 9 more rec- 
ords is allocated. The space is contig- 
uous; any unused space is released, and 
allocation begins and ends on cylinder 
boundaries. 


The DCB parameter indicates variable- 
length records, because the size of 
matrices vary. The record length is speci- 
fied as 2504, the maximum size of a 
variable-length record. (The maximum size 
of a record in this data set is the maximum 
number of elements (625) in any matrix mul- 
tiplied by the number of bytes (4) allo- 
cated for an element, plus 4 for the seg- 
ment control word (SCW) that indicates the 
count of the number of data bytes contained 
in the record.) The buffer length is spec- 
ified as 2508 (the 4 bytes are for the 
block control word (BCW) that contains the 
length of the block). 


The SEP parameter indicates that read 
and write operations should take place on 
different channels. 


Example 2 


Problem Statement: A previously created 
data set RAWDATA contains raw data from a 
test firing. A load module PROGRD refines 
data by comparing the data set RAWDATA 
against a forecasted result, PROJDATA. 
output of PROGRD is a data set &REFDATA, 
which contains the refined data. 


The 


The refined data is used to develop 
values from which graphs and reports can be 
generated. The load module ANALYZ contains 
a series of equations and uses a previously 
created and cataloged data set PARAMS which 
contains the parameters for these equa- 
tions. ANALYZ creates a data set &VALUES, 
which contains intermediate values. 


These values are used as input to the 
load module REPORT, which prints graphs and 
reports of the data gathered from the test 
firing. Figure 1 in the "Introduction" 
shows the I/O flow for the example. Figure 
88 shows the job control statements used to 
process this job. 


The load modules PROGRD, ANALYZ, and 
REPORT are contained in the private library 
FIRING. 


Explanation: The JOB statement indicates 
the programmer's name, JOHN SMITH, and 
specifies that control statements and con- 


trol statement error messages are written 
in the SYSOUT data set. 


The JOBLIB DD statement indicates that 
the private library FIRING is concatenated 
with the system library. 


The EXEC statement STEP1 defines the 
first job step in the job and indicates 
that the load module PROGRD is executed. 


The DD statements FT1I0F001 and FT11F001 
identify the data sets containing raw data 
(RAWDATA) and the forecasted result 
(PROJDATA), respectively. 


DD statement FT12F001 defines a tem- 
porary data set, &REFDATA, created for 
input to the second step. (In the load 
module, data set reference number 12 is 
used to write &REFDATA.) The DISP parame- 
ter indicates that a data set is new and is 
passed, The data set is written using the 
device class TAPECLS. The VOLUME parameter 
indicates that the volume identified by 
serial number 2107 is used for this data 
set. The DCB parameter indicates that the 
volume is written using high density; the 
records are fixed-length with FORMAT con- 
trol and the buffer length is 400. 


The EXEC statement STEP2 defines the 
second job step in the job and indicates 
that the load module ANALYZ is executed. 


DD statement FT17F001 identifies the 
data set which contains refined data. The 
DISP parameter indicates that the data set 
is deleted after execution of this job 
step. The DD statement FT18F001 identifies 
the previously created and cataloged data 
set PARAMS. 


DD statement FT20F001 defines the tem- 
porary data set &VALUES containing the 
intermediate values. The DISP parameter 
indicates that the data set is created in 
this step, and that it is passed to the 
next job step. The data set is written on 
volume 2108 using one of the devices 
assigned to the class TAPECLS. The DCB 
parameter indicates high density and fixed- 
length blocked records (written under 
FORMAT control). Each record is 204 char- 
acters long. 


The EXEC statement STEP3 defines the 
third job step and indicates that the load 
module REPORT is executed. DD statement 
FTO8F001 identifies the data set containing 
intermediate values. 


DD statement FTO6F001 indicates that the 
data set reference number 06 is used to 
print the reports and graphs for job step 
three. 
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Sample Coding Form 














1-10 ~_ HW-20 21-30. 31-40 aS ae 51-60 61-70 
1 [2131415 ]6]7 [8]9]0! | [21314 ]516[7[8[9 lol! [213]415]6|7/8]9]o} 1 12]3/4]5]6]7/e[gjol | [2[314151617 [8[910] | 1213141516] 718]9]0] | [2] 3]4/5/6 17/8/9106) i [213)4/[slé]7}s/9lo} 








//TESTFIRE JOB »JOHNSMITHMSGLEVEL=, aan 


/ISTEPL EXEC, PGM=PROGRD 


oe eG at 1 


gta ce a Be ee YO oO SOS a wD Fo Seat ce 


//JOBLIB, DD. DSNAME=F.IRING»DISP= = (OLD»PASS) oie take teh an Tac 


I FTAGFO!, DD DSNAME=RAWDATA2DISP=OLD Rah ee ee ee eee eee ce 





//FTALFOOt, DD DSNAME= E<PROJ DATA»DISP=O0LD 











ros a oo Oo 





IETS 2FOOs, DD DSNAME= EREFDATADISP= = (NEWsPASS) aUNIT= =TAPECLS> cae 4 
VOLUME=( »RETAINSSER=21@7)» 


bCB= (DEN: 20 RECFM= FoBLKSIZE= 49D) ! 


/ISTEP2 EXEC, PGM=ANALYZ 


// FT1,7FO01, DD DSNAME=%. STIEPL.FI12F O01 9 DISP= =OLD 








V/FTABFOOL, DD DSNAME)= PARAMS »DISP=< =OLD | 


Sa Gn tod et 
V/FT2@FO@!, DD. DSNAME= SVALUES 9DISP = (NEWsPASS) 9UNIT= TAPECLS» 
i DeB=((DEN=2)RECFM= FABLASIEE: 294) » VOLUME = = GER= = 21 98 Were eiaeawne, 





LISTERS EXEC PGM=REPORT. | 








[i ele ot es Oa a oe 
// FT GBF OO, OD DSNAME= K-STEP2- FT20F 0019 015P=0 
//FTOCFOD!, DD UNIT = =PRINTER Len Teno eas ewe Ome eee 


Figure 88. 
Example 3 


A data set has been created that con- 
tains master records for an index of stars. 
Each star is identified by a unique 6-digit 
star identification number. Each star is 
assigned a record position in the data set 
by truncating the last two digits in the 
star identification number. Because 
synonyms aEARer, records are chained. 


Problem Statement: Figure 89 shows a block 
diagram illustrating the logic for this 
problem. 


A card data set read from the input 
stream is used to update the star master 
data set. Each record (detail record) in 
this data set contains: 


1. The star identification field of the 
star master record that the detail 
record is used to update. 

2. Six variables that are to be used to 
update the star master. 
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Job Control Statements for Example 2 


BED sce chil 





oe Is 2X cos Wl ne oe ) es OD Vs OO OP! Ce 














Ltd tt 








ie ro ek a eas esl 


a ian citi 


: | ‘ | 








The following conventions must be 


observed in processing this data set: 


1. 


3. 


The star master record that contains 
the record location counter pointing 
to space reserved for chained records 
is assigned to record location 1. 


A zero in the chain variable indicates 
that the end of a chain has been 
reached. 


The first variable in each star master 
record is the star identification 
field; the second variable in each 
star master is the chain variable. 


Each record contains. six other 
variables that contain information 
about that star. 










Read Star. 
Master / 
Record 
No.1 











Read Star 
Detail 
Record 


Write Star 
Master 
Record. 
1 












Ident 
in Star Detail 
=999999 


Yes 


Randomize Star 


Number to a 
Record Location 





Read Star 
Master 
Record 








































ident 
in Star Detail = 
Ident in Star 
Master 


Set Record Position 


in Read Statement 
= Chain Variable 





No 





Chain 
Variable in 
Master = 
8) 


No 






Set Chain 
Variable = Record 
Location Counter 






Write 
Master 
Record 


Set Record Position 
in Write Statement 
= Record 
Location Counter 






Increment 
Record Location 
Counter by 1 






Build Star 
Master Record 


Figure 89. Block Diagram for Example 3 


Write Star 
Master 
Record 





ve Update 


Variable in 
Star Master 





“When a star detail record is read, its 


identification field is randomized, and the 
appropriate star master record is read. If 
the correct Star master record is found, 
the record is to be updated. If a star 
master is not found, then a star master 
record is to be created for that star. 


The last record in the star detail data 
set contains a star identification number 
999999 which indicates that processing the 
star detail data set is completed, 


Explanation: Figure 89 is similar to the > 
diagram shown in Figure 53 except Figure 89 
includes blocks that describe updating 
variables in master records already present 
in the data set. (Figure 53 includes. 
blocks describing certain operations that 
must be performed when a direct access data 
set is first written.) Also, Figure 89 is 
adapted to Example 3, while Figure 53 is 
more general. Figure 91 shows the FORTRAN 
coding for this program. 


The star master record that contains the 
record counter is read, placing the record 
location counter in LOCREC. Whenever a 
detail record is read, the identification 
variable is checked to determine if the end 
of the detail data set has been reached, 
The star detail records contain the 
variables A, B, C, D, E, and F. 


The identification number in the detail 
record is randomized and the result is 
placed in the variable NOREC, which is used 
to read a master record. The master record 
contains the star identification number 
(IDSTRM), a chain record location (ICHAIN), 
and six variables (T, U, V, X, Y¥, and @) 
which are to be updated by the variables in 
the star detail records. IDSTRM and IDSTRD 
are compared to see if the correct star 
master is found. If it is not found, then 
the variables containing the chain record 
numbers are followed until the correct star 
master is found or a new star master is 
created. 


Job Control Statements: The program shown 
in Figure 91 is compiled and link edited, 
placing the load module in the PDS STARPGMS 
and assigning the load module the name 
UPDATE. The data set that contains the 
star master records was cataloged and 
assigned the name STARMSTR when it was 
created. Figure 90 shows the job control 
statements needed to execute the module 
UPDATE. 
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Sample Coding Form 


Tir TS 20 ian, ido OT ai-s0 dT Si-60 | Sie70 | i-80 
21314 [5161718151011 213141516|7[6 191011 121314151617 18 1S]ol1 [213141516] 7181910 (213 14]s]16]716]S]O] 1213141516] 716]910| 1 121314]5[6| 71619101 [213141516] 7161910 
/STARDAUP, JOB 3239*J-ASTRONOMER’ »MSGLEVEL=1 


/JOBLIB DD DSNAME=STARPGMS DI SP=OLD 
/1 EXEC PGM=UPDATE 
//FT@7FOO1, DD DSNAME=STARMSTR»DISP=OLD 
/FTOLFOO1, DD *¥ STAR, DETAILS FOLLO 
Star Detail Data Set 
1% END, OF STAR DETAILS 





Figure 90. Job Control Statements for Example 3 
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IOENTIFICARION 
39 aly 4 45 th a, AP 49 SG St 37 54 34 53 36 37 38 59 60 <1 OF 62 68 a “61 sf 33 5 76 7 8 79. 9 


fo {7 8 9 tO 11 12 13 14 20 21 22 23 24 25 2% 3G 3) 32 33 34 


rT DEPT FILE 7(12000>130,E NEXT) | 


cL READ RECIORD ‘CONTAINING RECORD LOCATION COUNTER. | 
E-READ. STAR DATHC AND. cuEC POR 





















































‘ANDIO 
rNOREC=1DS80/1 
27k E. or Nes EC 94 
STIAR MA 
anna ‘Kore =TDSTIRM) 21/0 22524 
THERE A CHAIN VARTABICE 
92.3 | 
e MOL REGEN CONSTRUCTING NEW MAl 
C uPpATe CHAIN ARIABLE 1 LAS 
G_ | ITCHAILN= LOCREC 



























































ae 


STAR MASTER} 
RECORD | 



































: as 

E 

GO TiO 25 BRE 
“RECORD IS FOUND UPDAT 




































































READ |THE NEXT SITAR ASTER_IN THE CHIAIN 


ao aes es see: anitesiaies ence ogee aoepooenes en ene SEE ne Se CenES Sane oO teed 
































os 5 
apsT E(7! "100 TDSTRM 
STOP] 999919 
(i FORMAT( 16 >I4) 
102 


ar ORMAT(I6GF1@..3) 
ORMAT (I 6/5I 49 GIF 2@. 3)) 
END 


























Figure 91. FORTRAN Coding for Example 3 
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APPENDIX C: ASSEMBLER LANGUAGE SUBPROGRAMS 


A FORTRAN programmer can use assembler 
language subprograms with his FORTRAN main 
program. This section describes the link- 
age conventions that must be used by the 
assembler language subprogram to communi- 
cate with the FORTRAN main program. To 
understand this appendix, the reader must 
be familiar with the Assembler Lanquage 
publication, Form GC28-6514 and the Assem- 


bler Programmer's Guide. 


SUBROUTINE REFERENCES 


The FORTRAN programmer can refer to a 
subprogram in two ways: by a CALL state- 
ment or a function reference within an 
arithmetic expression. For example, the 
statements 


CALL MYSUB(X, Y, Z) 
I=J+K+MYFUNC (L,M, N) 


refer to a subroutine subprogram MYSUB and 


a function subprogram MYFUNC, respectively. 


For subprogram reference, the compiler 
generates: 


1. A contiguous argument list; the 
addresses of the arguments are placed 
in this list to make the arguments 
accessible to the subprogram. 


2e A save area in which the subprogram 
can save information related to the 
calling program. 


3. A calling sequence to pass control to 
the subprogram. 


Argument List 


The argument list contains addresses of 
variables, arrays, and subprogram names 
used as arguments. Each entry in the argu- 
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ment list is four bytes and is aligned on a 
fullword boundary. The last three bytes of 
each entry contain the 24-bit address of an 
argument. The first byte of each entry 
contains zeros, unless it is the last entry 
in the argument list. If this is the last 
entry, the sign bit in the entry is set to 


The address of the argument list is 
placed in general register 1 by the calling 
program. 


Save Area 


The calling program contains a save area 
in which the subprogram places information, 
such as the entry point for this program, 
an address to which the subprogram returns, 
general register contents, and addresses of 
save areas used by programs other than the 
subprogram. The amount of storage reserved 
by the calling program is 18 words. Figure 
92 shows the layout of the save area and 
the contents of each word. The address of 
the save area is placed in general register 
13. 


The called subprogram does not have to 
save and restore floating-point registers. 


Calling Sequence 


A calling sequence is generated to 
transfer control to the subprogram. The 
address of the save area in the calling 
program is placed in general register 13. 
The address of the argument list is placed 
in general register 1, and the entry 
address is placed in general register 15. 
If there is no argument list, then general 
register 1 will contain zero. A branch is 
made to the address in register 15 and the 
return address is saved in general register 
14. Table 24 illustrates the use of the 
linkage registers. 
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AREA-~~—~---~—--~~-> ,—--------~----~+------+-----+- a a 1 
(word 1) [This word is used by a FORTRAN compiled routine to store its | 
jepilogue address and may not be used by the assembler language | 

|subprogram for any purpose. | 

AREA+t 4~———————— me be ee ne ne rn ai ee an ean -{ 
(word 2) {If the program that calls the assembler language subprogram is_ | 
jitself a subprogram, this word contains the address of the save | 

jarea of the calling program; otherwise, this word is not used. | 


rm 

| | 
I | 
I | 
| | 
| | 
| { 
| | 
| | 
| AREA+8——-—--—---— > p--- n-ne ee Wen nn en ee 4 | 
| (word 3) {|The address of the save area of the called subprogram. | | 
| AREA+12-----—~——> | -------—--—---------------- +--+ --—- +--+ +--+ - |} | 
| (word 4) |The contents of register 14 (the return address). When the sub-| | 
| |program returns control, the first byte of this location is set | | 
| |to ones. | | 
| AREA+16-~—-—-—--—~— > }------~-----~-------- - -- 4 | 
| (word 5) |The contents of register 15 (the entry address). | | 
| AREA+20----—-- -->}--—___-______-________--_-___--_-__-_ ne : | 
| (word 6) |The contents of register 0. | | 
| AREA+24-----—---— > ------- enn + | | 
| (word 7) |The contents of register 1. | | 
}-----~-----—--------------—-----—----------------------—---] | 
| : | ‘ ; | 
| : I : i | 
| : | * | | 
| AREA+68—~-—--~-—-~—> }|-----------~--—----—--—------—---------- wan eee 4 | 
| (word 18) |The contents of register 12. | | 

ena ee SO ONDE Ie IE Ee ee Os EN I PERRO TE DO ER ee ee SN ea TT 

ESTO AID SN iP SET ery i a ee a, 


Figure 92. Save Area Layout and Word Contents 


Table 24. Linkage Registers 

| Sacer: C en nee eee See ee eee eee ee RE eed me eee en orn eee a ek ee epee ee et er ee ee ier pn idly eatlee cae OO ee Se A SS YS SI LS I SS TE NS SS SS SE AIS SY I q 
H Register 1 { | 
|Number |Register Name [Function | 


4 
0 [Result Register| Used for function subprograms only. The result is returned in| 
[general or floating-point register 0. However, if the result | 

jis a complex number, it is returned in floating-point regis | 

jters 0 (real part) and 2 (imaginary part). | 

| | 

| 

{ 


| 
| 
| 
| [Note: For subroutine subprograms, the result(s) is returned 
| 
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Jin a variable(s) passed by the programmer. 
+ 

1 [Argument List |Address of the argument list passed to the called | 
jRegister | subprogram. | 
an rn fae a ee a nf a nnd 
2 |Result Register|See Function of Register 0. | 
re A ST A + 1 A eT SS RS SAD aE hem erm seen Reems caren eheee nee RY eR NE cena LP AL A AS LA AE LN ANE ELA EE ED LED OOP SES LP EN ON NY LE SPAS SUS A ate aS eee 2 AD NN OD A AEE SNE LE I SO CR ET NE OL ON GS SY AY SS SE ARP OY SO NY, 4 

| 13 |Save Area {Address of the area reserved by the calling program 
| [Register jin which the contents of certain registers are stored by the | 
I | ' [called program. | 
|--------4---------------}------------—---------------------------------------—------- { 
| 14 |Return Register|Address of the location in the calling program to which con-_ | 
| | {trol is returned after execution of the called program. | 
|--------4----------------------------------—--- —-—--+--------------—---—-—------- 4 
| 15 jEntry Point }Address of the entry point in the called subprogranm. | 
| {Register |Note: Register 15 is also used as a condition code register, | 
| | {a RETURN code register, and a STOP code register. The partic-| 
| | jular values that can be contained in the register are | 
| | | 16 - a terminal error was detected during execution of a sub-| 
| | | program (an IHCxxxI message is generated) | 
| | {4*i - a RETURN i statement was executed | 
| | {| n - a STOP n statement was executed | 
| | {| 0 - a RETURN or a STOP statement was executed | 
tne i a a ep sda se 9 san th Sa a cae ev nn sp ape aa acl 
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CODING THE ASSEMBLER LANGUAGE SUBPROGRAM 


Two types of assembler language subpro- 


grams are possible: the first type (lowest 
level) assembler subprogram does not call 
another subprogram; the second type (higher 
level) subprogram does call another 
subprogram. 


Coding a Lowest Level Assembler Language 
Subprogram 


For the lowest level assembler language 
subprogram, the linkage instructions must 
include: 


1. An assembler instruction that names an 
entry point for the subprogram 


2. An instruction(s) to save any general 
registers used by the subprogram in 
the save area reserved by the calling 
program. (The contents of linkage 
registers 0 and 1 need not be saved.) 


3. An instruction(s) to restore the 
"saved" registers before returning 
control to the calling program. 


4. An instruction that sets the first 

byte in the fourth word of the save 
area to ones, indicating that control 
is returned to the calling Program: 


5. An Saat ructicns that returns control to. 


. the calling program. 


Figure 93 shows the linkage conventions a 


for an assembler language subprogram that 
does not call another subprogram. In addi- 
tion to these conventions, the assembler © 


| ceeac marietta ¢ some em cam cae er SE EE ET EE ES NS AD SOS OD NT cD Y S 


Note: 


m MUST BE AN ODD INTEGER TO INSURE THAT THE PROGRAM 


THE CONTENTS OF REGISTERS 14, 15, AND 0 THROUGH R ARE 


program must provide a method to transfer 
arguments from the calling program and 
return the ak aapnaby to the calling 


‘ progrant: 


Higher Level Assembler Language Subprogram 


A higher level assembler subprogram must 


include the same linkage instructions as 
the lowest level subprogram, but because 
the higher level subprogram calls another 


subprogram, it must simulate a FORTRAN sub- 
program reference statement and include: 


1. A Save area and additional instruc- 
tions to insert entries into its save 
area. 


2. A calling sequence and a parameter 
list for the subprogram that the high- 
er level subprogram calls. 


3. An assembler instruction that indi- 
cates an external reference to the 
subprogram called by the higher level 
Subprogram, ~ 


&, Additional instructions in the return 
routine to retrieve entries in the 
save area. 


If an assembler language main pro- 
gram calls a FORTRAN subprogram, the fol- 
lowing instructions must be included in the 
assembler language program before the 
FORTRAN subprogram is called: 


L 15, =VCIBCOM#) 
BAL 14,64(15) 


THE NAME CAN BE PADDED 


R IS ANY 


[Name oper. joperand Comments 

}-—-------}----- 

|deckname |START |0 mo 

| | BC {15,m+1+4(15) BRANCH AROUND CONSTANTS IN CALLING SEQUENCE 
| DC | X*m!* 

| ite |CLm‘ name‘ STARTS ON A HALF-WORD BOUNDARY. 

|* | | WITH BLANKS. 

| | STM }14,R,12(13) 

|* | | STORED IN THE SAVE AREA OF THE CALLING PROGRAM. 
|* | | NUMBER FROM 2 THROUGH 12. 

| |BALR |B,0 ESTABLISH BASE. PESO TER (2<B<12) 

| JUSING |*,B 

| {user |written source statements 

| i fens 

| fet 

| | LM | 2,R,28(13) | RESTORE REGISTERS © 

| [| MVI {12(13), XEPPY -INDICATE CONTROL RETURNED TO CALLING PROGRAM 
| | BCR a 14 : RETURN TO CALLING PROGRAM - 

ere. RS ee i ee ees i a a 

Figure 93. naiseace conventions for Lowest Level Subprogram 
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These instructions cause initialization of 
return coding interruption exceptions, and 
opening of the error message data set. If 
this is not done and the FORTRAN subprogram 
terminates. either with a STOP statement or 
because of an execution-time error, the 
data sets opened by FORTRAN are not closed 
and the result of the termination cannot be 
predicted. Register 13 must contain the 
address of the save area that contains the 
registers to be restored upon termination 
of the FORTRAN subprogram. Specifically, 
the fifth word of the save area must con- 


[EXTRN |name2 


| 
| | Bc }15,m+1+4(15) 
l | Dc | Xx*m° 
| | Dc | CLm‘ name, 
| * | | SAVE ROUTINE 
| {STM {[14,R,12(13) 
a 
| |BALR [B,0 ESTABLISH BASE REGISTER 
| [USING |*,B 
\* Co ae 
| * | | 11, 13, AND 15. 
| | LA ,13, AREA 
| * | | REGISTER 13. 
| | ST {13,8(0,9) 
|* | | CALLING PROGRAM'S SAVE AREA 
| | ST {Q,4(0,13) 
| | 
fe | | GRAM'S SAVE AREA 
| | BC |15, prob, 
| AREA | Ds [18F 
|* | |END OF SAVE ROUTINE 
| { 
| prob, juser |written program statements 
| | | 
| * | |CALLING SEQUENCE 
| | LA | 1, ARGLIST 
| |L |15,ADCON 
| |BALR [14,15 
| [more [user written program statements 
| * | | RETURN ROUTINE 
| [L {13, AREA+4 
| * | | REGISTER 13 
| | LM | 2,R,28(13) 
| |L {}14,12(13) 
| | Mv1 }12(13),X* FF‘ 
| | BCR {15,14 RETURN TO CALLING PROGRAM 
| * | |END OF RETURN ROUTINE 
| ADCON [Dc {| A(name,) 
| * | _ | ARGUMENT LIST 
{ARGLIST |DC |AL4 (arg, ) ADDRESS OF FIRST ARGUMENT 
| | | 
| | - | 
| | | 
| [Dc _ | x'so* 
| | Dc | AL3 (argn) ADDRESS OF LAST ARGUMENT 
i ee a cw ws Qa i etka ore eee ee 


Figure 94, 
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NAME OF THE SUBPROGRAM CALLED BY THIS SUBPROGRAM 


THE CONTENTS OF REGISTERS 14, 
STORED IN THE SAVE AREA OF THE CALLING PROGRAM. R IS 
ANY NUMBER FROM 2 THROUGH 12. 


LOADS REGISTER 13, WHICH POINTS TO THE SAVE AREA OF THE 
CALLING PROGRAM, INTO ANY GENERAL REGISTER, Q, EXCEPT 0, 
LOADS THE ADDRESS OF THIS PROGRAM'S SAVE AREA INTO 
STORES THE ADDRESS OF THIS PROGRAM'S SAVE AREA INTO THE 
STORES THE ADDRESS OF THE PREVIOUS SAVE AREA (THE SAVE 


AREA OF THE CALLING PROGRAM) INTO WORD 2 OF THIS PRO- 


RESERVES 18 WORDS FOR THE SAVE AREA | 


LOAD ADDRESS OF ARGUMENT LIST 


LOADS THE ADDRESS OF THE PREVIOUS SAVE AREA BACK INTO 


LOADS THE RETURN ADDRESS INTO REGISTER 14. 


INDICATE LAST ARGUMENT IN ARGUMENT LIST 


ae ee ene SE SE cone SO nae AR SS ne SE OE ne OE nD SANE ERED A eT NY SY ED eR DS SER RS YS SRE 


tain the address which error-handling rou- 
tines are to consider the program entry 
point. If control is to return to the 
assembler language subprogram, then regist- 
er 13 contains the address of its save 
area. If control is to return to the 
operating system, then register 13 contains 
the address of its save area. 


Figure 94 shows the linkage conventions 
for an assembler subprogram that calls 
another assembler subprogram. 


i5, AND 0 THROUGH R ARE 


Linkage Conventions for Higher Level Subprogram 
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In-Line Argument List 


The assembler programmer may establish 
an in-line argument list instead of out-of- 
line list. In this case, he may substitute 
the calling sequence and argument list 
shown in Figure 95 for that shown in Figure 
94, 


PEE Ne FY Wa AP AE AS Roe ee EE Ae Rca en nee EE UIT PO NoPE 4 
| ADCON Dc A(prob,) | 
{ . | 
| . | 
| . | 
| LA 14, RETURN | 
| L 15, ADCON | 
| CNOP 2,4 | 
| BALR 1,15 | 
| pe _ ALY larg, ) ] 
| pc AL4 (arga) | 
| . | 
| . | 
| . | 
| Dc - x*80° | 
| Dc AL3(argyn) | 
| RETURN BC 0,xX*isn* | 
Gee te a er 4 


Figure 95. In-Line Argument List 


Sharing Data_in COMMON 


Both named and blank COMMON in a FORTRAN 


IV program can be referred to by an as~ 
sembler language subprogram. To refer to 
named COMMON, the V-type address constant 


name DC V(name of COMMON) 
is used. 


If a FORTRAN program has a blank COMMON 
area and blank COMMON is also defined (by 
the COM instruction) in an assembler lan- 
guage subprogram, only one blank COMMON 
area is generated for the output load 
module. Data in this blank COMMON is 
accessible to both programs. 


To refer to blank COMMON, the following 
linkage may be specified: 


COM 
name DS OF 


cname CSECT 


emis a lorapea ei > 
L 11,=A(name) ey 
USING name, 11 ° 


150 


RETRIEVING ARGUMENTS FROM THE ARGUMENT LIST 


The argument list contains addresses for 
the arguments passed to a subprogram. The 
order of these addresses is the same as the 
order specified for the arguments in the 
calling statement in the main program. The 
address for the argument list is placed in 
register 1. For example, when the 
statement 


CALL MYSUB(A, B,C) 


is compiled, the following argument list is 


generated. 

ea rma 6 SR aaa aa aa aces 1 

] OOO00000] address for A | 
------- }--------------------------------4 

| 90000000} address for B | 


For purposes of discussion, A is a real*8 
variable, B is a subprogram name, and C is 
an array. | 


The address of a variable in the calling 


- program is placed in the argument list. 


The following instructions in an assembler 


‘language subprogram can be used to move the 


real*8 variable A to location VAR in the 


-subprogram. 

L Q,0(1) 

MVC —s- VAR (8), 0(Q) 
where 


Q is any general register except 0. 


For a subprogram reference, an address 
of a storage location is placed in the ~— 
argument list. The address at this storage 
location is the entry point to the subpro- 
gram. The following instructions can be 
used to enter subprogram B from the subpro- 
gram to which B is passed as an argument. 


L Q,4(1) 

L 15, 0(Q) 

BALR 14,15 
where 


Q is any general register except 0. 


For an array, the address of the first 
variable in the array is placed in the 
argument list. An array [for example, a 
three-dimensional array C(3,2,2)] appears 
in this format in main storage. 





Se Om com cones ceaeat Ure tees ere eR tants cme SN cen ur me ga core eich aa a a nig eh oe aaa Sa a am eeae ane al 
tian ea 4d 
ee a en ee t casthercahereteecst ee tacamna neat 
tC(3,1,2) C(1,2,2) C€C(2,2,2) C(3,2,2) 


Table 25 shows the general subscript format 
for arrays of 1, 2, and 3 dimensions. 


Table 25. Dimension and Subscript Format 


[Array A | Subscript Format | 

re ne eee aie optim ee tiie mpi te ee ater mee eo wee ee a emer come eae esa were nn nnn 4 
jA(D1) A(S1) | 
{A(D1, D2) {|A(S1,S2) 


| 
jA(D1,D2, Bele intake S2,S3) | 
|D1, D2, aa D3 are integer constants used| 
[in the DIMENSION statement. Si, S2, and | 
|S3 are subscripts used with subscripted | 
| variables. | 
ee ee Se hasan hiesmemsd 


The address of the first variable in the 
array is placed in the argument list. To 
retrieve any other variables in the array, 
the displacement of the variable, that is, 
the distance of a variable from the first 
variable in the array, must be calculated. 
The formulas for computing the displacement 
(DISPLC) of a variable for one, two, and 
three dimensional arrays are 


DISPLC=(S1-1) #L 
DISPLC=(S1-1) #L+ (S2-1) #D1#L 
DISPLC= (S1-1) *L+ (S2-1) #D1*L+ (S3-1) #D2*#D1*L 


where 
L is the length of each variable in 
this array. 


For example, the variable C(2,1,2) in 
the main program is to be moved to a loca- 
tion ARVAR in the subprogram. Using the 
formula for displacement of integer 
variables in a three-dimensional array, the 
displacement (DISP) is calculated to be 28. 
The following instructions can be used to 
move the variable, 


L Q,8(1) 
L R, DISP 
L S,0(Q,R) 
ST  S,ARVAR 
where 
Q and R are any general register 
except 0. 


S is any general register. Q and R 
cannot be general register 0. 


Example: An assembler language subprogram 
is to be named ADDARR, and a real variable, 
an array, and an integer variable are to be 
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passed as arguments to the subprogram. The 
statement 

CALL ADDARR (X,Y,J) 
is used to call the subprogram. Figure 96 


shows the linkage used in the assembler 
subprogram. 


RETURN i in an Assembler Lanquage 
Subprogram 


When a statement number is an argument 
in a CALL to an assembler language subpro- 
gram, the subprogram cannot access the 
statement number argument. 


To accomplish the same thing as the 
FORTRAN statement RETURN i (used in FORTRAN 


subprograms to return to a point other than 


that immediately following the CALL), the 
assembler subprogram must place 4*i in 
register 15 before returning to the calling 
program. 


For example, when the statement 
CALL SUB (A,B, 6&10,&20) 


is used to call an assembler language sub- 
program, the following instructions would 
cause the subprogram to return to the prop- 
er point in the calling prodrans 


LA 15,4 (to return to 10)... 
BCR 15,14 


LA 15,8 (to return to 20) 


BCR 15,14 


Ob‘ject-Time Representation of FORTRAN 
Variables 


The programmer who uses FORTRAN in con- 
nection with assembler language may need to 
know how the various FORTRAN data types 
appear in the computer. The following 
examples illustrate the object-time repre- 
sentation Of FORTRAN variables as they 
appear in System/360. 
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INTEGER Type 


INTEGER variables are treated as fixed-point operands by the FORTRAN IV (G) and (H) 
compilers, and are governed by the principles of System/360 fixed-point arithmetic. 
INTEGER variables are converted into. either sutiword (32 bit) or halfword (16 bit) signed 
integers. — 


ee ee ee eee 
{Name | Oper. |Operand | 
~------- $ =~ 4 ~~ = nn nn nn nn nn nn nnn : 
JADDARR |START|0 | 
|B |EQU |8 | 
| | BC {15,12(15) | 
| foe: pane: | 
| jpc {CL7*ADDARR* | 
| [STM [14,12,12(13) | 
| |BALR |B, 0 | 
| [USING |*,B As . | 
| {L {2,8(1) MOVE 3RD ARGUMENT TO LOCATION CALLED | 
| jMvc  |INDEX(4),0(2) INDEX IN ASSEMBLER LANGUAGE SUBPROGRAM. | 
| {L }3,0¢1) MOVE 1ST ARGUMENT TO LOCATION CALLED VAR | 
| [Mvc |VAR(4),0(3) IN ASSEMBLER LANGUAGE SUBPROGRAM. | 
] | L $4,412) : LOAD ADDRESS OF ARRAY INTO REGISTER ne | 
| juser lwritten statements a 
| I J | 
| | | | 
| | —_ | 
i | LM [2,12,28(13) | 
| [MVI [12(13),X‘FF* | 
| [BCR [15,14 | 
| [DS | OF . a 
| INDEX [Ds j1F | 
Aes [Bs iF | 
PR Neca IL, eer eay NAM MC nya el NORA pe a i ese a Ce eA eae TT ena ORR NE ES RT aN er ee J 


Figure a a Subprogram Example 


The statements: BES yg 


INTEGER*2 ITEM/76/, VALUE 
INTEGER*4 F,F64/100/ 

F= 15 

VALUE = -2 


would cause the variables ITEM, VALUE, F, F64 to appear in the computer as: 


2 Bytes 
ITEM {0|0000000] 01001100] | 
"SA ae 
2 Bytes 
value|1{1111111]11111110} 
7 es Gen eareee eee Se er 
Ss 1 is. 
4 Bytes 
F jo 0 i 10000000 {00000000} I 00000000] i oooo1113] 
a ea a 


152: 


4 Bytes 


Ae igs stan eS RE RS NE GN I ett en ene wom Ee ie ae ene pepsi | 


r 
F64 | 0] 0000000] 00000000j 00000000) 01100100} 


LiL... b-bd ceo een ad 


Si 31 


where S in bit position 0 represents the sign bit. All negative numbers are represented 
in two's complement notation with a one in the sign-bit position. (For a more complete 
explanation of fixed-point arithmetic, refer to the publication IBM System/360 _Principles 


of Operation, Form A22-6821.) 


REAL TYPE 


All REAL variables are converted into short (32 bit) or long (64 bit) floating-point 
numbers by the compiler. The length of the numbers is determined by FORTRAN IV specifi- 
cation conventions. For example, the statements: 


REAL*4 HOLD, R/100./ 
REAL*8 A, RATE/-8./ 
A = 8. 


would cause the variables to appear internally as: 


S CHARACTERISTIC FRACTION 


Ae A A I EY RS NY me ON EE NO mane ete ewe ce Calne me seme sme ee aman oe ame ang, 


HOLD|1|1000001 | 01000000] 00000000} 00000000) 
ae eee Cee area ba See a eee es 


01 7 "3 1 


S CHARACTERISTIC FRACTION 


aaa toes — SS Se Sa oT | 


R | 01000010] 01200100] 00000000] 00000000} 
oe cast aa cee ath aah a i ns eds an A we Se as dc lh one a em ccc 
ie 78 31 
S CHARACTERISTIC FRACTION 
ee i en ee ee re te oe MT oe 
A ion onoosneona[ sora nn} 
ah eee eek ec ee ee Seen peo a ceeay isle aases kee | 
01 78 
S CHARACTERISTIC FRACTION 
Cee ee ee ee ee ee ee bee ee | 
RATE] 1] 1000001} 10000000{ {00000000/ 00000000 0000 § Tose 
tab ee ew oh he ot eee | 
where: 
e The sign bit (S) occupies bit position 0. 


e The characteristic occupies bit positions 1-7. 


e The fraction occupies either bit positions 8-31 for a short floating-point number or 
bit positions 8-63 for a long floating-point number. 


COMPLEX TYPE 


A COMPLEX variable has two parts (real and imaginary) and is treated as a pair of REAL 
numbers. The COMPLEX parts are converted into two contiguous, short or long, floating- 
point numbers. For example: 
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COMPLEX D/(2.1,4.7)/, E#16 
E = (55.5 -55.5) 


will cause the variables D and E to appear in the computer as: 


S CHARACTERISTIC FRACTION 


re RR into NR Aan sre cree hone ta ne a ee se scaee cane nie oie came sens agp cae oar es cen ce ache a se 


D- jo]1000001} 00200001} 10031002] 1001002 2. 1 


—--~-----4+ ee a Eat cet ee Se aEEeneaeienntemetamadeetn aimmebamapentemmtnmnine: demmpteend 


= 
| 0]1000001{ 01001011 | 00110011 ]00110011 [4.7 


LiLo. hh eb eed 


01 7 8 31 


S CHARACTERISTIC FRACTION 


Csr ee—7 renter 6 aera etiam: a eee oe oe em ete aa oer seme ae oom  adumatenmtenead 


E [0] 1000010] 00110111 | 10000000] 00000000] 0000 0000[55.5 


ate Ce cera Cee eet ee ee ele Ser a nen Eee et REE aD OAR came ee SO ee RM ce Ee cae ce ce SN rm eS nee SR SE AR SP ei : tceanemnteanadacned 


Ess adoueciinea Dearaenalen asa) Gapausicaieine uboute gel yantiaes » 0000155.5 


LL -———— aon a ne canes a ella ae re a ee we cree a a am sin i ts i a | 


01 7 8 i 63 


Note: Floating-point operations in System/360 may sometimes produce a negative zero, 
i.e., the sign bit of a floating-point zero will contain a one. FORTRAN IV compilers 
consider all floating-point numbers having a fraction of zero as equivalent. The setting 
of the sign bit is unpredictable in floating-point zeros computed by a FORTRAN G or H 
object program. (A detailed explanation of floating-point operations can be found in the 
publication IBM System/360: Principles of Operation, Form A22-6821. 


LOGICAL TYPE 


FORTRAN IV LOGICAL variables may specify only 2 values: 
«TRUE. Or FALSE. 


These logical values are assigned numerical values of '1' and *0*, for .TRUE. and 
«FALSE., respectively, by both the G and H compilers. The statements: 


LOGICAL*1 L1,L2/.TRUE./ 
LOGICAL*4 L3,L4/.FALSE./ 
Li « FALSE. 
L3 - TRUE. 


would cause the variables Li, L2, L3, L& to be assigned the following values (using hexa- 
decimal notation): 


<--1 Byte--> 


Sie rime aoe, | 
L1 | 00 { 

bacicceinneted 

<~-1 Byte--> 

pacar mene ret ——4 
L2 | 01 | 

L Re mee Se ne Oe ee coe seciscal 

<---——-~ 4 Bytes-—---—-- > 


ee ee ep ee ee oe pe ee ee 


——S— 
L3 | 00 | 00 | 00 | o2 | 
4, 


q 


L4 {| 00 | 00 | 00 | 00 | 
| a as as / ne | 
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Note: The values shown above for LOGICAL variables are those assigned for the current 
implementation of the FORTRAN IV (G) and (H) compilers. The assembler language programm- 
er should not assume these values for future versions of either the (G) or (H) compilers, 
since both compilers are subject to change. 


The DUMP or PDUMP subroutine can also be used as an additional tool for understanding 
the object-time representation of FORTRAN data. Refer to the "Use of DUMP and PDUMP" 
section in the “Programming Considerations" chapter of this publication or consult the 
FORTRAN IV Library Subprograms publication. 
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Note: 


suggested operator Or programmer response. 


FORTRAN IV (G) COMPILER DIAGNOSTIC MESSAGES 


ee ne a a ee a na 


Two types of compiler diagnostic 
messages are generated -- ere ee (Ma rnEng and 
status. 


The error/warning messages produced by 
the compiler are noted on the source 
listing immediately after the statement in 
which they occur. A maximum of four 
messages appears on each line. Figure 97 
illustrates the format of the messages as 
they are written in the data set specified 
by the SYSPRINT DD statement. 


There are two types of error/warning 
messages: serious error messages, and 
warning messages. The serious error 
messages have a condition code of 8 and the 
warning messages a code of 4 or 0. 


Status messages are produced during the 
operation of the compiler. Most indicate 
termination of compilation resulting from 
internal compiler errors. 


[XX = AtBt-C/ (X*#4#3-A44-75) 

| — $ $ 

|[n) y message, n) y message 

| 
|Where: n is an integer noting the ordi- 


nal occurrence of the error on 
each card. 


y is a 1- to 3-digit message num- 
ber in IEYxxxI format. 


$ is the symbol used by the 
compiler for flagging the 
particular error in the 
statement. (This symbol is 
usually noted on the line 
following the source statement 
and may appear at various 
points beneath the error 
statement Sepeueed on the typel 
of error.) 


message is the actual message 
printed 


ee ce me he EY te AER cine SSO SS NE NNT Se SER SY iy lve “SO et Sin Sn “eh SO te GEE ee fin ie 


Figure 97. Format of Diagnostic Messages 


bee eee A a So LE AR RO SS NE CE NE ES AO OS ES QO ES ce A NE SS SR creme eT een) 


fF Re ee cere ene SE EN NS RE SONS SRN SUEY ENG SORES NN RU eS MON cememeY Se 


APPENDIX D: SYSTEM DIAGNOSTICS 


This appendix contains a detailed description of the diagnostic messages produced 
during compilation and load module execution. 


The description of each message includes a 


Error/Warning Messages 


The following text contains a 
description of error/warning messages 
produced by the compiler. The message is 
shown with an explanation. 


IEYO01I ILLEGAL TYPE 


Explanation: The type of a 
constant, a variable, or an 
expression is not correct for its 
usage. For example, the variable 
in an Assigned GO TO statement is 
not an integer variable; or the 
variable in an assignment 
statement on the left of the equal 
sign is of logical type and the 
expression on the right side does 
not correspond; or an argument in 
a reference to an IBM-supplied 
subprogram is not the type 
required by the subprogram. 
(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


variable in an Assigned GO TO 
statement is an integer variable. 
Verify that any variable in an 
assignment statement on the left 
of the equal sign is not of 
logical type with the expression 
on the right side not in 
correspondence. Make sure that an 
argument in a reference to an 
IBM-supplied subprogram is the 
type required by the subprogram. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


IEYOO2T LABEL 

Explanation: The statement in 
question is unlabeled and follows 
a transfer of control; the 
statement therefore cannot be 
executed. (Condition code - 0) 
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IEYO031 


IEYOO4T 


IEYOO5I 
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Explanation: 
required in the statement has been 


Programmer Response: 
user eCrrore 


Programmer Response: Probable 
user error. Correct an unlabeled 


statement following a transfer of 
control, as it cannot be executed. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


NAME LENGTH IEYOO6I 


Explanation: The name of a 
variable, COMMON block, . NAMELIST 
or subprogram exceeds six 
characters in length; or two 
variable names appear in an 
expression without a separating 
operation symbol. 

(Condition code - 0) 


Programmer Response: Probable 
user error. Make sure that the 


name of a variable, COMMON block, 
NAMELIST, or subprogram does not 
exceed six characters in length. 


Check that two variable names do 


not appear in an expression 
without a separating operation 
symbol. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Have source and associated 
listing available. 


COMMA 


The delimiter 


omitted. 
(Condition code - 0) 


Probable 
correct or delete 
invalid delimiters and insert the 
required delimiter that has been 
omitted. If the problem recurs, 


do the following before calling 


IBM for programming support: 


-® Have source and associated 


listing available. 


ILLEGAL LABEL 
ITEYOO8I 
Explanation: Illegal usage of a 
statement label; for example, an 
attempt is made to branch to the 
label of a. FORMAT statement. 
(Condition code - 8). 


IEYOO7I 


Programmer Response: Probable 
user error. Correct the illegal 
usage Of a statement label. 
Example: No branch to the label 
of a FORMAT statement should be 
coded. If the problem recurs, do 
the following before calling make 


for programming support: 


® Have source and associated 
listing available. 


DUPLICATE LABEL 


Explanation: The label appearing 
in the label field of a statement 
has previously been defined for 
another statement. 

(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


previously defined label and 
adjust any code referencing the 
label. If the problem recurs, do 
the following before calling IBM 
for programming support: 


® Have source and associated 
slisting available. 


ID CONFLICT | 


Explanation: The name of a 


.. -Wariable or subprogram has been 
-used in conflict with the type 


that was defined .for the variable 
or subprogram in a previous 
statement. (Condition code - 8) 


Programmer Response: Probable 
user error. Correct any variable 


or subprogram name used in 
conflict with the type defined for 
the variable or subprogram ina 
previous statement. Examples: 
The name listed in a CALL 
statement is the name of a 
variable; a single name appears 
more than once in the dummy list 
of a statement function; a name 
listed in an EXTERNAL statement 
has been defined in another 
context. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 

ALLOCATION 

Explanation: The storage 


allocation specified by a source 
module statement cannot be. 


performed because of an 





IEYOO09T 


IEYO101 


inconsistency between the present 
usage of a variable name and some 
prior usage of that name, 
(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the statement 
Since the storage allocation 
specified by a source module 
statement cannot be performed. 
Make sure that an inconsistency 
between present usage of a 
variable name and some prior usage 
of that name does not occur. 
Examples: A name listed in a 
COMMON block has been listed in 
another COMMON block; a variable 
listed in an EQUIVALENCE statement 
is followed by more than seven 
subscripts. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IEY0111 


® Have source and associated 
listing available. 


ORDER 
IEYO012I 
Explanation: The statements 
contained in the source module are 
used in an improper sequence. 
(Condition code - 8)» 


Programmer Response: Probable 
user error. Make sure that 


statements contained in the source 
module are used in proper 
sequence. Examples: An IMPLICIT 
statement does not appear as the 
first or second statement of the 
source module; an ENTRY statement 
appears within a DO loop. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. IEY0131 
SIZE 


Explanation: A number used in the 
source module does not conform to 
the legal values for its use. 
(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that a 


-number: used in the source module 


conforms to the legal values for 
its use. Examples: A label used 
in a statement exceeds the legal 
size for a statement label; the 
size specification in an EXPLICIT 
statement is not acceptable; an 
integer constant is not within the 
allowable magnitude. If the 


problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


UNDIMENS TIONED 


Explanation: A variable name is 
used as an array (i.e., subscripts 
follow the name), and the variable 
has not been dimensioned. 
(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that a 
variable name is not used as an 
array (i.e., subscripts must not 
follow the name). Include a 
DIMENSION statement if one is 
missing. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


SUBSCRIPT 


Explanation: The number of 
subscripts used in an array 
reference is either too large or 
too small for the array. 
(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 
number of subscripts used in an 
array reference corresponds to the 
number appearing in the DIMENSION 
statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


SYNTAX 


Explanation: The statement or 
part of a statement to which this 
message refers does not conform to 
the FORTRAN IV syntax. 

(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that all 
source code conforms to the 
FORTRAN IV syntax. Examples: The 
statement cannot be identified; a 
non-digit appears in the label 
field; fewer than three labels 
follow the expression in an 
Arithmetic IF statement. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 
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IEYO141 


IEYO15I 


e Have source and associated 
listing available. 


CONVERT 


Explanation: The mode of the 
constant used in a DATA or in an 
Explicit Specification statement 
is different from the mode of the 
variable with which it is 
associated. The constant is then 
converted to the correct mode. 
(Condition code - 0) 


Programmer Response: Probable 
user error. Make sure that the 


mode of the constant used ina 
DATA or in an EXPLICIT 
specification statement is 
identical to the mode of the 
variable with which it is 
associated. 


IEY0181I 


NO. END. CARD 


Explanation: The source module 
does not contain an END statement. 
(Condition code - 0) 


Programmer Response: Probable 
user error. Include the necessary 
END statement for the source 
module. If the problem recurs, do 
the following before calling IBM 
for programming support: 


® Have source and associated 


TEY0161 


LEYO171I 
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listing available. 
: IEY0191 
ILLEGAL STA. . 


Explanation: The context in which 
the statement in question has been 
used is illegal. 

(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete 


illegal context. Examples: A 
specification or a DO statement 
appears in a Logical IF; an ENTRY 
statement appears outside a 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 

ILLEGAL STA. WRN. 

Explanation: The message is 

produced as a result of any of the 

following: a RETURN statement 

appears and the source module is 

not a subprogram; a RETURN i 

statement appears in a FUNCTION 


Explanation: 


subprogram. 


(Condition code - 0) 


Programmer Response: Probable 
user error. Correct or delete a 


RETURN statement appearing outside 
a subprogram or a RETURN I 
statement appearing in a FUNCTION 
subprogram If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


* Have source and associated 
listing available. 


NUMBER. ARG 


Explanation: The reference to a 
library subprogram specifies an 
incorrect number of arguments. 
(Condition code - 4) 


Programmer Response: Probable 
user error. Correct or delete an 
invalid reference to a library 
subprogram specifying an incorrect 


number of arguments. If the 


problem recurs, do the following 
before calling IBM for programming 


support: 


e Have source. and. associated 
listing available. 


FUNCTION ENTRIES UNDEFINED 


In a - FUNCTION 
subprogram, there was no statement 
to assign a value to the function 
name or an entry name. If the 
FUNCTION subprogram contains no 
ENTRY statements, the error must 
be corrected. When ENTRY 
statements are present, this 
message is a warning provided that 
at least one function or entry 
name is assigned a value in the 
FUNCTION subprogram. However if 
no function or entry. name is 
assigned a value, that error must 
be corrected. 

(Condition code - 4) 


Programmer Response: Probable 
user error. Make sure that the 
function name and each entry name 
is assigned a value in a FUNCTION 
subprogram If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 





ITEYO20I 


IEYO211I 


COMMON BLOCK name ERRORS 


Explanation: This message 
pertains to errors that exist in 
the definitions of EQUIVALENCE 
sets which refer to the COMMON 
area. The message is produced 
when there is a contradiction in 
the allocation specified, a 
designation to extend the 
beginning of the COMMON area, or 
if the assignment of 

COMMON storage attempts 

to allocate a variable to a 
location which does not fall on 
the appropriate boundary; "name" 
is the name of the COMMON block in 
error. 

(Condition code - 4) 


IEYO221 


Programmer Response: Probable 
user error. Verify that 


definitions of EQUIVALENCE sets 
which refer to a COMMON area are 
correct. Make sure that none of 
the following occurs: a 
contradicition in the allocation 
specified, a designation to extend 
the beginning of the COMMON area, 
or an assignment of COMMON storage 
attempts to allocate a variable to 
a location which does not fall on 
the appropriate boundary. Use the 
MAP option to determine offsets in 
the COMMON block designated in 
error ("name"). If the problem 
recurs, do the following before 


IEYO231 


calling IBM for programming 
“support: 


Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


Have source and associated 
listing available. 


UNCLOSED DO LOOPS 


Explanation: The message is 
produced if DO loops are initiated 
in the source module, but their 
terminal statements do not exist. 
A list of the labels which 
appeared in the DO statements but 
were not defined follows the 
printing of the message. 
(Condition code - 8) 


IEYO 241 


Programmer Response: Probable 
user error. Correct or insert 


statements where DO loops are 
initiated and their terminal 
statements do not exist. If the 
problem recurs, do the following 


‘before calling IBM for programming 


support: 


e Have source and associated 
listing available. 


UNDEFINED LABELS 


Explanation: If any labels are 
used in the source module but are 
not defined, this message is 
produced. A list of the undefined 
labels appears on the lines 
following the message. 

(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or insert 
necessary references to labels 
which require definition. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have. source and associated 
listing available. 


EQUIVALENCE ALLOCATION ERRORS 


Explanation: This message is 
produced when there is a conflict 
between two EQUIVALENCE sets, or 
if there is an incompatible 
boundary alignment in the 
EQUIVALENCE set. The message is 
followed by a list of the 
variables which could not be 
allocated according to source 
module specifications. 
(Condition code - 4) 


Programmer Response: Probable 
user error. Correct or delete 
conflicts between two EQUIVALENCE 
sets or incompatible boundary 
alignments in the EQUIVALENCE set. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Have source and associated 
listing available. 


EQUIVALENCE DEFINITION ERRORS 


Explanation: This message denotes 
an error in an EQUIVALENCE set 
when an array element is outside 
the array. (Condition code - 4) 


Programmer Response: Probable 
user error. Correct or delete the 
invalid reference in the 
EQUIVALENCE set. If the problem 
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IEYO251 


IEY0O261 


ITEYO271 
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recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP has been 
specified as a parameter on the 
EXEC statement. 


® Have source and associated 


listing available. 


DUMMY DIMENSION ERRORS IEYO321I 


Explanation: If variables 
specified as dummy array 


. dimensions are not in COMMON and 


are not global dummy variables, 
the above error message is 
produced. A list of the dummy 
variables which are found in error 
is printed on the lines following 
the message. (Condition code - 4) 


Programmer Response: Probable 
user error. Make sure that 


variables assigned to a program 
block are defined previously as in 
COMMON. If the problem recurs, do 
the following before calling IBM 
for programming support: IEYO331 
e Have source and associated 

listing available. 


BLOCK DATA PROGRAM ERRORS 


Explanation: This message is 
produced if variables in the 
source module have been assigned 
to a program block but have not 
been defined previously as COMMON. 


-A list of these variables is 


printed on the lines following the 
message. (Condition code - 4) 


Programmer Response: Probable 


user error. Make sure that 


variables assigned to a program 


block are defined previously as in 
COMMON. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Have source and associated 
listing available. IEY0361 


CONTINUATION CARDS DELETED 

More than 19 
continuation lines were read for 
one statement. All subsequent 
lines are skipped until the 
beginning of the next statement is 
encountered. 

(Condition code - 8) 


Explanation: 


Programmer Response: Probable 
user error. Delete the 


continuation cards in error and 
begin a new source statement to 
correct the source. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source. and associated 
listing available. 


NULL PROGRAM 


Explanation: This message is 
produced when an end of file mark 
precedes any true FORTRAN 
Statements in the source module. 
(Condition code - 0) 


Programmer Response: Probable 
user error. Correct or delete an 


end-of-file mark preceding any two 
FORTRAN statements in the source 
module. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Have source and associated 
listing available. 


COMMENTS DELETED 


Explanation: More than 30 comment 


lines were read between the 


initial lines of two consecutive 
statements. The 3ist comment line 


and all subsequent comment lines 


are skipped until the beginning of 
the next statement is. encountered. 
(There is no restriction on the 
number of comment lines preceding 
the first statement.) 

(Condition code -- 0) 


Programmer Response: Probable 
user error. Make. sure that more 
than 30 comment lines do not 
appear between the initial lines 
of two consecutive statements. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


ILLEGAL LABEL WRN 


Explanation: The label on this 
nonexecutable statement has no 
valid use beyond visual . 
identification, and may produce 
errors in the object module if the 
same label is the target of a 
branch type statement. (Only 
branches to executable statements 
are valid.) This message is 





IEYO371 


IEY0381 


produced, for example, when an END 
statement is labeled. The message 
is issued as a warning only. 
(Condition code - 0) 


Programmer Response: Probable 
user errors. Correct or delete the 


occurrence of a label ona 
nonexecutable statement having no 
valid use beyond visual 
identification. Make sure that 
only branches to executable 
statements are indicated. 
Example: An END statement is 
labeled. If the problem recurs, 
do the following before calling 
IBM for programming support: 





® Have source and associated 
listing available. 


PREVIOUSLY DIMENSIONED WRN 


Explanation: This message is 
produced if arrays are 
redimensioned. The dimensions 
first to be given are used. An 
example of a situation that would 
cause this message to be issued 
follows: Dimension information 
for an array is given in a type 
statement and subsequent COMMON 
and/or DIMENSION statements 
redefine the dimensions. 
(Condition code - 4) 


Programmer Response: Probable 
user error. Make sure that arrays 


have not been redimensioned. 
Example: Dimension information 
for an array is given in a type 
statement and subsequent COMMON 
and/or DIMENSION statements 
redefine the dimensions. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


SIZE WRN 


Explanation: A variable has data 
initializing values that exceed 
the size of the scalar or the 
array Or array element. Examples 
of situations that would cause 
this message to be issued follow: 
(1) Five bytes of initializing 
data are given for a scalar 
variable, as in REAL A/*ABCDE'/ 
(2) Excessive bytes are given for 
an element of an ire ty as in DATA 
A (1)/‘ABCDEFG*'/. 

(Condition code - 4) 


Programmer Response: Probable 
user error. Make sure that data 


initializing values for a variable 
do not exceed the size of the 
scalar or the array or array 
element. Examples: Five bytes of 
initializing data are given for a 
scalar variable, as in 

REAL A/'ABCDE'/; excessive bytes 
are given for an element of an 
array, as in DATA A(1)/‘ABCDEFG'/,. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


IEYO039I RETURN 


Explanation: A RETURN statement 
is needed. (Condition code - 0) 


Programmer Response: Probable 
user error. Insert missing RETURN 


statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


Status Messages 


The following paragraphs describe the 
messages that are produced during the 
operation of the (G) compiler which denote 
the progress of the compilation. Most of 
the messages discussed in this section 
pertain to the conditions that result in 
the termination of the compilation. 


IEYO28I NO CORE AVAILABLE-COMPILATION 
TERMINATED 


Explanation: This message is 
produced when the system is unable 
to supply the compiler with an 
additional 4K byte block of roll 
(or table) storage. 

(Condition code - 16) 


Programmer Response: Probable 
user error. Either segment the 


program unit into subroutines or 
specify a larger REGION size on 
the JOB or EXEC card. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MAP and LIST have 


been specified as parameters on 
the EXEC statement. 
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IEYO291 


IEY0301 


IEY0311 
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DECK OUTPUT DELETED 


=) Make sure that MSGLEVEL=(1, 1) 


e Have source and associated 
listing available. 


ITEYO34I 


Explanation: If the DECK option 
has been specified, and an error 
occurs during the process of 
punching the designated output, 
this message is produced. No 
condition code is generated for 
this error. 


Programmer Response: If the 
problem recurs, do the following 


before calling IBM for programm 2g 
support: 


e Make sure that MSGLEVEL=(1,1) 
has been specified on the JOB 
statement. 


e Have source and associated 
listing available. 


LINK EDIT OUTPUT DELETED 


Explanation: If the LOAD option 
has been specified, and an error 
occurs during the process of 
generating the load module, this 
message is produced. 

(Condition code - 16) 


Programmer Response: If the 
problem recurs, do the following 
before calling IBM for programming 


sEMBpOSE 


has been specafied on the. SOB 
statement. 


e Have source and associated 
listing available. 


ROLL SIZE EXCEEDED 


Explanation: This message is 
produced when the WORK or EXIT 
roll (table) has exceeded the 
storage capacity to which it has 
been assigned, or some other roll 
used by the compiler has exceeded 
64K bytes of storage. 

(Condition code - 16) 


Programmer Response: Restructure 
the program unit and recompile. 


If the problem recurs, do the 
. following before calling IBM for 


programming support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


Explanation: 


IEYO35I. 


‘Explanation: 
- produced when the required ddname 
data definition card is missing or 


IEYOSOL 


® Have source and associated 
listing available. 


I/O ERROR [COMPILATION TERMINATED] 
XXXe «oe XXX 


This message is 
produced when an input/output 
error is detected during 
compilation. If the error 
occurred on SYSPUNCH, compilation 
is continued and the "COMPILATION 
TERMINATED" portion of the message 
is not printed. (Condition code - 
8). If the error occurred on 
SYSIN, SYSPRINT or SYSLIN, 
compilation is terminated. 
(Condition code - 16). xxxe.e.xxx 
is the character string formatted 
by the SYNADAF macro instruction. 
For an interpretation of this 
information, see the publication 
IBM System/360 Operating System: 


Supervisor and Data Management 
Macro Instructions, Order No. 


GC28-6647. 





Programmer Response: Check all DD 
statements. If the problem 


recurs, do the following before 


calling IBM for programming 


support: 


e Make sure that MSGLEVEL=(1,1) 
has been specified on the JOB 
statement. 


* Have source and associated 
listing available. 


UNABLE TO OPEN ddname 


This message is 


the ddname is misspelled. 


Programmer Response: Probable 
user error. Include the required 


ddname data definition statement 
Or correct a misspelled ddname. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


..@ Make sure that MSGLEVEL=(1,1) 


has been specified on the JOB 
statement. 


Have source and associated 


isting available. 
COMMON ERROR IN BLOCK . DATA 


Explanation: An error has ocurred 
in the use of a BLOCK DATA 
subprogram. There must be at 
least one named COMMON statement 


within the BLOCK DATA subprogram. 
The BLOCK DATA subprogram cannot 
contain any references to blank 
COMMON, 

(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that there 
is at least one named COMMON 
statement within the BLOCK DATA 
subprogram. The BLOCK DATA 
subprogram cannot contain any 
references to blank COMMON. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


Informative Messages 


Informative messages are generated by 
the compiler to inform the programmer of 
the result of the compilation. The © 
messages are shown with any compiler action 
taken. 


*OPTIONS IN EFFECT* option {,option}... 
*OPTIONS IN EFFECT* option {, option}... 
*STATISTICS* SOURCE STATEMENTS=nnnnnnnn, 
PROGRAM SIZE=nnannnnnha 
and 
*STATISTICS* NO DIAGNOSTICS GENERATED 
or 
*STATISTICS* nnn DIAGNOSTICS GENERATED, 
HIGHEST SEVERITY CODE IS n 


where 


nnnnnnnn, 
is the number of source statements, 
expressed as a decimal integer. 


nnnnnnnn > 
is the size, in bytes, of the object 
module expressed as a decimal integer. 


nnn 
is the number of diagnostics 
generated, expressed as a decimal 
integer. 

n 


is the condition code. 


The first statistics message (giving source 
statements and program size) is suppressed 
whenever a BLOCK DATA subprogram is 
compiled; however, the two 
options-in-effect messages and one of the 
other statistics messages witt still 
appear. 


If there was more than one compilation 
(i.e., there was a multiple compilation), 
one final message is printed. This message 
is suppressed when there is only one main 
or subprogram. The message appears as 
either: 


*STATISTICS* NO DIAGNOSTICS THIS STEP 
or 
*STATISTICS* nnn DIAGNOSTICS THIS STEP 


Explanation: If there were no errors in 
any of the compilations the first message 
is printed. The second message is printed 
when there are errors in one or more of the 
compilations; the cumulative number of | 
errors is indicated by the value nnn. 


FORTRAN IV_(H) COMPILER DIAGNOSTIC MESSAGES 


Two types of compiler diagnostic 
messages are generated - informative and 
error/warning. 


Informative Messages 


Six unnumbered messages are generated by 
the compiler to provide the programmer with 
compilation information. 


LEVEL- dmthyr 0OS/360 FORTRAN IV 
DATE- yy.ddd/HH.mm.ss 


Explanation: This message is generated at 
the beginning of every compilation. The 
level date of the compiler is given by 
"dmthyr", where d is the day of the month 
(mth) in the year (yr). The number of the 
day (ddd) in the year (yy) that the 
compilation takes place is given by 
“yy.ddd"; the time of day in hours (HH), 
minutes (mm), and seconds (ss) (based on a 
24-hour clock) is given by “HH.mm.ss". The 
time is also punched into the END card of 
the object deck. 


COMPILER OPTIONS - option{option}... 


Explanation: This message is printed on 
the first page of every source listing. 
Options explicitly specified in the PARM 
parameter and any default options appear in 
the message. 


*OPTIONS IN EFFECT* NAME=xxxxxx, OPT=0n, 
LINECNT=xx 

*OPTIONS IN EFFECT* option {,option}... 

*STATISTICS* SOURCE STATEMENTS=nnnnnnnn, , 
PROGRAM SIZE=nnnnnnnn3z 

*STATISTICS* NO DIAGNOSTICS GENERATED 
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or 


#STATISTICS*# nnn DIAGNOSTICS GENERATED, 
HIGHEST SEVERITY CODE IS n 


Explanation: This message appears 
immediately before the ****** END OF 
COMPILATION ***#** message. It indicates 
the size of both the source module and the 
object module as well as the FORTRAN (H) 
environment in which they were processed. 


nnnnnnnn, 
is the number of source statements 
(comments cards are not included) 
expressed as a decimal integer. 


nnnnnnnna 
is the size of the object module, in 
bytes, expressed as a decimal integer. 


nnn 
is the number of diagnostics for each 
compilation expressed as a decimal 
integer. 


The options indicated are the default 
options and those explicitly specified in 
the PARM parameter of the EXEC statement. 
For a full explanation of these options, 
see “Compiler Options™ in the "FORTRAN Job 
Processing” section of this publication. 
The severity code, n, is the completion 
code. 


nnnnk BYTES OF CORE NOT USED 


Explanation: This message is produced if 
more than 10K bytes of available work area 
is not used during compilation. This 
message appears immediately after the 
*+#+#*+* END OF COMPILATION **##*#* message. 
The term nnnn indicates how much smaller 
the region size could be during 
compilation. If a SIZE option is indicated 
for the compilation step, the term nnnn 
indicates how much smaller the specified 
SIZE value could be. 


*#¢44*END OF COMPILATION##*#*#4#* 


Explanation: This message, which indicates 
that all processing of the source program 
has been completed, is generated at the end 
of every compilation except when an 
abnormal termination causes the generation 
of the message COMPILATION DELETED. nh 


If there is more than one compilation in 
a job step, one of the following messages 
will be printed after the last compilation: 
*STATISTICS* .NO DIAGNOSTICS THIS STEP 
or 
*STATISTICS* nnn DIAGNOSTICS THIS STERs 
HIGHEST SEVERITY CODE IS .n 
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Explanation: If there were no errors in 
any of the compilations, the first message 
is printed. The second message is printed 
when there are errors in one or more of the 
compilations; the cumulative number of 
errors is indicated by the value nnn. The 
severity code, n, is the completion code. 


Error/Warning Messages 


The following text contains a 
description of error/warning messages 
produced by the compiler. The message is 
shown with an explanation, and any compiler 
action or user action that is required. 


All error/warning messages produced are 
written in a group following the source 
module listing and object module name 
table. Figure 98 shows the format of each 
message as it is written in the data set 
specified by the SYSPRINT DD statement. 


There are three types of messages: (1) 
a terminal error message, (2) serious error 
messages, and (3) warning messages. The 
terminal error message returns a condition 
code of 16; the serious error messages a 
code of 8; and the warning messages a code 
£ 4, 


yn ee ei pL ges HE ane, eee geen ore ey ene | 
ERROR NO. ERROR MESSAGE 

ISN a 3 | 
LABEL b.. IEKxxxI message | 
NAME c | 

| 


| 

| 

| 

| 

| 

| 

= 

| | 
| is the internal statement | 
| number of either the state- | 
| ment in error or the state-| 
| ment following the last | 
| previous executable | 
| statement. | 
| | 
| | 
| i 
| | 
| | 
| | 
| | 
i 


o 


is a source label (state- 
ment number) 

is a variable name 

is a 3-digit message 
number 

is the actual message 
printed . 


¢° 


message 


Figure 98. Format of Diagnostic Messages 


In addition, following the statement in 
which a serious error is detected, the 
following appears in the source listing: 
ERROR DETECTED - SCAN POINTER = x; x 
represents the position of the character. 
pointed to by the compiler's scan pointer 
at the time the error is detected. Any 
FORTRAN keywords and/or meaningless blanks 





are ignored in determining the position of 
the character. (If the statement is found 
to be invalid during the classification 

process, the value of x always equals one.) 


In the case of compilation deletion, the 
following message appears: 


COMPILATION DELETED. n 
where n can be 1, 2, 3, 4, 5, 6, or 7 


Explanation: The message is generated by 
the FORTRAN System Director. The 
compilation is deleted because of the 
reason indicated by the value of n. 
(Condition code - 16) 


n=1 Phase 10 Program too large to compile 
or main storage allocation is too 
small for compiler size. 

=2 A program interrupt occurred during 
execution of the compiler. A program 
interrupt message and the contents of 
all registers are written preceding 
the message. 


Figure 99 shows the format of the 
compile-time program interrupt 
message when the extended error 
message facility has not been 
specified at system generation time. 
In the old PSW, c is a hexadecimal 
number that indicates the cause of 
the interruption; c may be one of the 
- Following values: 


Cause 
Operation 
Privileged éperation 
Execute 
Protection 

~ Addressing 
Specification 
Data 
Fixed-point overflow 
Fixed~point divide 
Decimal overflow 
Decimal divide 
Exponent overflow 
Exponent underflow 
Significance 
Floating-point divide 


MHUADPOCOYHN EWN PIO 


Following PHASE SWITCH, mis a 
hexadecimal number that indicates 
which phase of the compiler was 
executing when the interrupt 
occurred; m may be one of the 
following values: 


Phase 

Phase 10 

Phase 10 (STALL routine) 
Phase 15 (PHAZ15 routine) 
Phase 15 (CORAL routine) 
10 Phase 20 

20 Phase 25 

40 Phase’ 30 


Ofnre|s 


n=3 Phase 15 Program too large to compile 
4 Phase 20 Program too large to compile 
n=5 Phase in control requested System 
Director to terminate compilation 
immediately. (Any error messages 
generated by the calling phase will 
also be written.) 
n=6 Error detected by IHCFCOMH (IBCOM) 
- I/O error detected during compilation 
- an IHCxxxI message may also be 
generated 
n=7 End of file, no END statement in 
source module ire 


IEKO01I THE NUMBER OF ENTRIES IN THE ERROR 


- TABLE HAS EXCEEDED THE MAXIMUM. 
“(condition code.- 8) 


Programmer Response: Probable 
user error, Correct the 
statements in error. If the 
problem recurs, do the following 
before calling TBM for programming 
support: 


e Make sure that all indicated 
statements in error are 
corrected. 


e Have source and associated 
listing available. — 
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Me a a a a a a a a eS 4 
Figure 99. Compile-Time Program Interrupt Message 
IEKOO2I THE DO LOOPS ARE INCORRECTLY Programmer Response: Probable 
NESTED. user error. If the problem 
recurs, do the following before 
(Condition code - 8) calling IBM for programming 
support: 
Programmer Response: Probable 
user error. Resubmit the job with e Have source and associated 
all statements in the range of the listing available. 
inner DO also in the range of the 
outer DO. If the problem recurs, IEKOO7I THE EXPRESSION HAS AN INVALID | 
do the following before calling DOUBLE DELIMITER. 
IBM for programming support: ; 
(Condition code - 8) 
e Make sure that the extended 
range of a DO statement does not 
contain another DO statement Programmer Response: Probable 
that has an extended range if user error. If the problem 
the second DO is within the same recurs, do the following before 
program unit as the first. calling IBM for programming 
support: . 
e Have source and associated 
listing available. e Have source and associated 
listing available. 
IEKOO3I. THE EXPRESSION HAS AN INVALID 
LOGICAL OPERATOR. IEKOO8I THE EXPRESSION HAS A CONSTANT 
WHICH IS GREATER THAN THE 
(Condition code - 8) .. ALLOWABLE. MAGNITUDE. 
Programmer Response: Probable (Condition code - 8) 
user error. Correct the invalid 
logical operator. If the problem 
recurs, do the following before _. Programmer Response: Probable 
calling IBM for programming user error. If the problem 
support: recurs, do the following before 
calling IBM for programming 
e Have source and associated support: 
listing available. 
: e Have source and associated 
ee listing available. 
IEKOO5I. THE STATEMENT HAS AN INVALID USE 
OF PARENTHESES. - IEKOO9I THE EXPRESSION HAS A NON-NUMERIC 
CHARACTER IN A NUMERIC CONSTANT. 
(Condition code - 8) (Condition code - 8) 
Programmer Response: Probable 
Programmer Response: Probable user error. Make sure that the 
user error. Correct or delete the constant contains only numeric 
parenthesis in question. If the characters. If the problem 
problem recurs, do the following recurs, do the following before 
before calling IBM for programming calling IBM for programming 
support: support: 
e Have source and associated e Have source and associated 
listing available. listing available. 
IEKOO6I THE STATEMENT HAS AN INVALID IEKO10I THE EXPRESSION HAS A CONSTANT WITH 
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LABEL. 


(Condition code - 8) 


AN INVALID EXPONENT. 


(Condition code - 8) 


IEKO111 


ITEK01 21 


IEKO0131 


Programmer Response: Probable 
user error. Delete or correct the 


invalid exponent. Make sure that 
the base and exponent are valid 
combinations of operand types. 
the problem recurs, do the 
following before calling IBM for 
programming support: 


If 


e Have source and associated 
listing available. 


THE ARITHMETIC OR LOGICAL 
EXPRESSION USES AN EXTERNAL 
FUNCTION NAME AS A VARIABLE NAME. 


IEKO15I 


(Condition. code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


external function name is not 
employed as a variable. Resubmit 
the job using the MAP option to 
obtain indication of the use of 
each name. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. 


THE EXPRESSION HAS A COMPLEX IEKO161 
CONSTANT WHICH IS NOT COMPOSED OF 


REAL CONSTANTS. 


(condition code - 8) 


Programmer Response: Probable 
user error. Make sure that both 


the real and imaginary parts of 
the complex number are valid real 
constants. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. 
IEKO0171 


AN INVALID 
DELIMITER. 


CHARACTER IS USED AS A 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
invalid character. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


_@ Have source and associated 


IEKO141 


‘listing available. 


THE STATEMENT HAS AN INVALID 
NON-INTEGER CONSTANT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid non-integer constant. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


® Have source and associated 
listing available. 


THE ARITHMETIC OR LOGICAL 
EXPRESSION USES A VARIABLE NAME AS 
AN EXTERNAL FUNCTION NAME. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


variable is not employed as an 
external function. Resubmit the 
job using the MAP option to obtain 
indications of the use of each 
hame. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Have source and associated 
listing available. 


THE GO TO STATEMENT HAS AN INVALID 
DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


statement contains valid 
delimiters. If the problem 
recurs, do the following before 
calling IBM for programming 
support: is PY Roe ata 


e Have source and associated 
listing available. 


THE ASSIGNED OR COMPUTED GO TO HAS 
AN INVALID ELEMENT IN ITS 
STATEMENT NUMBER LIST. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


statement number list contains 
executable statement numbers. If 
an assigned GO TO is in question, 
make sure that the ASSIGN 
statement is correct. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 
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IEKO19T1 


IEKO 201 


IEKO211 


THKO22T 


IEK0231 
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Programmer Response: 


non-integral variable. 


THE ASSIGNED GO TO HAS THE OPENING 
PARENTHESIS MISPLACED OR MISSING. 


(Condition code ~ 8) 


Programmer Response: Probable 
user error. Correct or insert 


parenthesis. If the problem 
recurs, do the following before 
calling IBM for programming 
support: TEKO24I 
e Have source and associated 

listing available. 


THE ASSIGNED GO TO HAS AN INVALID 
DELIMITER FOLLOWING THE ASSIGNED 
VARIABLE. 


(Condition code - 8) 


Probable 
user error. Make sure that a 
comma follows the assigned 
variable. If the problem recurs, 
do the following before calling 
IBM for programming. support: 


ITEKO251 


e Have source and associated 
listing available. 


THE COMPUTED GO TO HAS AN INVALID 
COMPUTED VARIABLE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


referenced variable is integer and 
non-subscripted. If the problem 
recurs, do the following before 


calling IBM for programming 


support: 


e Have source and associated 
listing available. 


THE VARIABLE IN THE ASSIGNED GO TO 
STATEMENT .IS. NOT INTEGRAL. 


(Condition code - 8) 


Probable 
the 


Programmer Response: 
user @Crror. correct 


If the 
problem recurs, do the following 
before calling IBM for programming 


IEKO271 


. Support: 


® Have source and associated 
listing available. 


THE DEFINE FILE STATEMENT HAS AN 
INVALID DATA SET REFERENCE NUMBER. 


(Condition code - 8) 


IEKO26I — 


Programmer Response: Probable 
user error. Make sure that the 


data set reference number or size 
is an integer constant. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


°® Have source and associated 
listing available. 


THE DEFINE FILE STATEMENT HAS AN 
INVALID DELIMITER. 


(Condition code -. 8) 


Programmer Response: Probable 


user error. Correct the invalid 
delimiter. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE DEFINE FILE STATEMENT HAS AN 
INVALID INTEGER CONSTANT AS THE 
RECORD NUMBER OR SIZE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the invalid 


integer. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE DEFINE FILE STATEMENT HAS AN 
INVALID FORMAT CONTROL CHARACTER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


format control character is one of 
L, E, or Ue. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE ASSIGN STATEMENT HAS AN 
INVALID INTEGER VARIABLE. 


(Condition code - 8) 


Programmer Response: Probable 
user .error. Correct or delete the 


invalid integer variable. If the 
problem recurs, do the following 
before calling IBM for programming 
support: : 


ITEKO281 


ITEKO301 


TEKO311 


TEKO341 


e Have source and associated 
listing available. 


THE ASSIGN STATEMENT HAS AN 
INVALID DELIMITER. 


IEKO351I 


(Condition code - 8) 

Programmer Response: Probable 
user error. Determine the invalid 
delimiter and correct the 
statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE DO STATEMENT HAS AN INVALID 
END OF RANGE STATEMENT NUMBER. 

IEKO361 
(Condition code - 8) 
Programmer Response: Probable 
user error. Make sure that the 
end of range statement number is 
an executable statement number 
appearing after the DO statement. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 

THE DO STATEMENT OR IMPLIED DO HAS IEKO39I1 

AN INVALID INITIAL VALUE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Check that the 


initial value is either an 
unsigned integer constant greater 
than zero, Or an unsigned non- 
subscripted integer variable 
greater than zero. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. 


THE ASSIGNMENT STATEMENT BEGINS 
WITH A NON-VARIABLE. 

ITEKO4GOL 
(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 
Statement. Resubmit the job with 
the MAP option to determine the 
nature of the non-variable in 
question, if possible. If the 
problem recurs, do the following 
before calling IBM for programming 
support: © 


e Have source and associated 
listing available. 


THE NUMBER OF CONTINUATION CARDS 
EXCEEDS THE COMPILER LIMIT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


statement does not extend over 
more than 19 continuation cards. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE STATEMENT CONTAINS INVALID 
SYNTAX. THE STATEMENT CANNOT BE 
CLASSIFIED. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 


Statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. 


THE DEFINE FILE STATEMENT HAS AN 
INVALID ASSOCIATED VARIABLE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Check that the 


associated variable is 
non-subscripted and integral. 

Make sure that the associated 
variable does not appear in the 
I/O list of a READ or WRITE for a 
data set associated with the 
DEFINE FILE statement. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


IT IS ILLEGAL TO HAVE A & 
STATEMENT NUMBER PARAMETER OUTSIDE 
A CALL STATEMENT. 


(Condition code ~ 8) 


Programmer Response: Probable 
user error. Delete the & 


statement number. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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IEKOG4T | 


IEKO45I1 


IEKO47I 


IEKO501 
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_@ Have source and associated 


IEKO521 
listing available. 


ONLY THE CALL, FORMAT, OR DATA 
STATEMENTS MAY HAVE LITERAL 
FIELDS. 


(Condition code - 8) 


Programmer Response: Probable 
user error. . Delete or correct the 


misplaced literal field. If the 

problem recurs, do the following 

before calling IBM for programming 

support: 

e Have source and associated 
listing available. 


THE EXPRESSION HAS A LITERAL WHICH 
IS MISSING A DELIMITER. 


(Condition code - 8) 


IEKO531 
Programmer Response: Probable 
user error. Insert the missing 
delimiter, or correct the 
erroneous delimiter. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


® Have source and associated 
listing available. 


THE LITERAL HAS MORE THAN 255 
CHARACTERS IN IT. 


(Condition code - 8) IEKO561I 


Programmer Response: Probable 
user error. Delete the excessive 


characters, or make sure that the 


constant is properly delimited. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE ARITHMETIC IF HAS THE SYNTAX 
OF THE BRANCH LABELS. INCORRECT. IEKO571I 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that there 


are three executable statement 
numbers with commas following the 
first two. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE EXPRESSION HAS AN INCORRECT 
PAIRING OF PARENTHESES OR QUOTES. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Check that there are 


as many left parentheses as there 
are right. If a FORMAT statement 
contains an H Format Code, check 
that w is large enough to 
accommodate the data and does not 
encompass the closing parenthesis. 
Make sure that there is an even 
number of single quotes, and that 
single quotes within data, if any, 
are represented by two successive 
Single quotes. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE STATEMENT HAS A MISPLACED 
EQUAL SIGN. 


(Condition code - 8) 


Programmer Response: 


Probable 
user error. Correct or delete the 
equal sign indicated. If the 


problem recurs, do the following 
before calling IBM for programming 


- support: ; 


e Have source and associated 
listing available. 


THE FUNCTION STATEMENT MUST HAVE 
AT LEAST ONE ARGUMENT. 


(Condition: code: - 8) 


Programmer Response: Probable 
user error. Correct the function 


statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and. associated 
listing available. 


THE STATEMENT HAS A NON-VARIABLE 
SPECIFIED AS A SUBPROGRAM NAME. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 


non-variable subprogram name. If 
the problem recurs, do the 
following before calling IBM for 


programming support: 


e Have source and associated 
listing available. 


IEKO58I 


IEKO591 


LTEK0611 


IEK0621 


THE SUBPROGRAM STATEMENT HAS AN 
INVALID ARGUMENT. 


TEKO64TI 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid argument. Use the MAP 


- option to determine its nature, if 


necessary. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE FUNCTION STATEMENT HAS AN 
INVALID LENGTH SPECIFICATION. 


IEKO65I 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


length specification is 
permissible for the associated 
type. Check that a type has been 
specified and that DOUBLE 
PRECISION has not been included. 
If the problem recurs, do the 
following before calling IBM for 
programming support: © 
IEK0661 

e Have source and associated 

listing available. 


THE EQUIVALENCE STATEMENT CONTAINS 
A NON-SUBSCRIPTED ARRAY ITEM. 
INCORRECT ADCONS MAY BE GENERATED. 


(condition code - 4) 


Programmer Response: Probable 
user error. Include the necessary 


subscripts. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 

listing available. IEKO67I1 
THE EQUIVALENCE STATEMENT HAS AN 
ARRAY WITH AN INVALID NUMBER OF 
SUBSCRIPTS. 
(Condition code - 8) 

ram ce) Probable 

user error. Delete the invalid 
subscripts or include those 
necessary for agreement with the 
associated specification 
statement. If the problem recurs, 
do the following before calling 
IBM for programming support: IEK069I 
® Have source and associated 

listing available. 


THE NAMELIST STATEMENT HAS AN 
INVALID DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete or correct the 
invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE NAMELIST STATEMENT HAS A 
NAMELIST NAME NOT BEGINNING WITH 
AN ALPHABETIC CHARACTER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the invalid 


character. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE NAMELIST STATEMENT HAS A 
NON-UNIQUE NAMELIST NAME. 


{Condition code - 8) 


Programmer Response: Probable 
user error. Correct the NAMELIST 


name. Invoke the MAP option for 
indications of the use of each 
name, if necessary. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE NAMELIST STATEMENT HAS AN 
INVALID LIST ITEM. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Check that the list 


item is a variable or array name. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


® Have source and associated 
listing available. 


THE COMMON STATEMENT HAS AN 
INVALID DELIMITER. 


(Condition code - 8) 
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IEKO701 


IEKO711I 


IEKO7 21 


IEKO731 
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user e@rrore 


Programmer Response: Probable 
user error. Delete or correct the 


invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE EQUIVALENCE STATEMENT HAS A 
MISSING OR MISPLACED DELIMITER. IEKO74I 


(Condition code - 8) 


Programmer Response: Probable 


user error. Make sure that there 
are as many left parentheses as 
there are right parentheses. 
Check all commas. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. IEKO75I 

THE EQUIVALENCE STATEMENT DOES NOT 

SPECIFY AT LEAST TWO VARIABLES TO 

BE EQUIVALENCED. 


(Condition code - 8) 


Programmer Response: Probable 
Check delimiters and 


correct the invalid source. If 
the problem recurs, do the 
following before calling IBM for 


_ programming support: 


e Have source and associated 
listing available. 


THE EQUIVALENCE STATEMENT HAS AN 


INVALID VARIABLE NAME, 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete or correct the 


invalid variable name. Make sure 
that the variable in question is 
not a dummy argument. If 
necessary, invoke the MAP option 
for indications of the use of 
variable names. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IEKO77I 


e Have source and associated 
listing available. 


THE EQUIVALENCE STATEMENT HAS A 
SUBSCRIPT WHICH IS NOT AN INTEGER 
CONSTANT. 


user error. 


IEKO761 


- Programmer Response: 


(Condition code - 8) | 


Programmer Response: Probable 
user error. Correct the invalid 


subscript. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. 


_ THE STATEMENT HAS A VARIABLE WITH 
MORE THAN SEVEN SUBSCRIPTS. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Check that all commas 


are in correct position. If the 
problem recurs, do the following 
before calling IBM for programming 


_ Support: 


® Have source and associated 
listing available. 


THE COMMON STATEMENT HAS A 
VARIABLE THAT HAS BEEN REFERENCED 
IN A PREVIOUS COMMON STATEMENT. 


(Condition code - 8) 


Probable 
Correct or delete the 
redundant entry. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


Programmer Response: 


® Have source and associated 
listing available. 


THE IMPLICIT STATEMENT IS NOT THE 
FIRST STATEMENT IN A MAIN PROGRAM 
OR THE SECOND STATEMENT INA 
SUBPROGRAM. 


(Condition Code - 8) 


Probable 
user error. Place the IMPLICIT 
statement in correct sequence. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE IMPLICIT STATEMENT HAS A 


_ MISPLACED DELIMITER IN THE TYPE 


SPECIFICATION FIELD. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid delimiter. If the problem 


IEKO78I 


IEKO791 


ITEKO801 


IEKO811 


recurs, do the following before IEKO82I 
calling IBM for programming 


support: 


® Have source and associated 
listing available. 


THE IMPLICIT STATEMENT HAS AN 
INVALID TYPE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that for 


any type there is a corresponding 
valid standard or optional length 
specification. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


TEK08 31 


® Have source and associated 
listing available. 


THE IMPLICIT STATEMENT HAS A 
MISSING LETTER SPECIFICATION, 


(Condition code — 8) 


Programmer Response: Probable 
user error. Insert the omitted 
specification. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


TEKO84I 


e Have source and associated 
listing available. 


THE IMPLICIT STATEMENT HAS AN 
INVALID LETTER SPECIFICATION, 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the invalid 
letter specification. If the 
problem recurs, do the following 
before calling IBM for programming 


support: 


IEKO861 


e Have source and associated 
listing available. 


THE IMPLICIT STATEMENT HAS AN 
INVALID DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete or correct the 


invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. 


IEKO871 


THE IMPLICIT STATEMENT DOES NOT 
END WITH A RIGHT PARENTHESIS. 


(Condition code — 8) 


Programmer Response: Probable 
user error. Insert the omitted 
parenthesis. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE IMPLICIT STATEMENT HAS A 
MISPLACED DELIMITER IN ITS 
PARAMETER FIELD. 


(condition code - 8) 


Programmer Response: Probable 
user error. Delete or correct the 


misplaced delimiter. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE IMPLICIT STATEMENT CONTAINS A 
LITERAL FIELD. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that there 


are no apostrophes or wH 
specifications in the IMPLICIT 
Statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE COMMON STATEMENT SPECIFIES A 
NON-VARIABLE TO BE ENTERED. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that 
delimiters are in correct 
position. Check that only 
variable or array names are 
specified for entrance into a 
common block. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE COMMON STATEMENT SPECIFIES A 
NON-VARIABLE COMMON BLOCK NAME. 
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ITEKO88I 


ITEKO9OI 


IEKO91I_ 


ITEKO92T 
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(Condition code —- 8) 


Programmer Response: Probable 
user error. Correct the invalid 


name. If the problem recurs, do 
the following before calling IBM 
for programming support: 


IEKO93TI 


e Have source and associated 
listing available. 


A DUMMY ARGUMENT IN A SUBPROGRAM 
STATEMENT MAY NOT BE IN COMMON 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that only 


variable or array names appear in 
the COMMON statement. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


IEKO94T 


® Have source and associated 
listing available. 


THE EXTERNAL STATEMENT HAS A 
NON-VARIABLE DECLARED AS EXTERNAL. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 
non-variable name. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE EXTERNAL STATEMENT HAS AN 
INVALID DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error... Correct .or delete the 


invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IEKO96I 


e Have source and associated 
listing available. 


THE TYPE STATEMENT MULTIPLY 
DEFINES THE VARIABLE. 


Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
variable in question. If the 
problem recurs, do the following 
before calling IBM for programing 
support: 


IEK1011 


IEKO95I 


e Have source and associated 
listing available. 


THE TYPE STATEMENT HAS AN INVALID 
DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
invalid delimiter. If the probelm 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE TYPE STATEMENT HAS A 
NON-VARIABLE TO BE TYPED. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
non-variable. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and. associated 
listing available. 


THE TYPE STATEMENT HAS THE WRONG 
LENGTH FOR THE GIVEN TYPE. 


(condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 
specified length is permissible 
for the associated type. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE TYPE STATEMENT HAS A MISSING 
DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct, delete, or 


insert the delimiter in question. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


* Have source and associated 


listing available. 


THE DO STATEMENT OR IMPLIED DO HAS 
AN INVALID. DELIMITER. 


TEK1021 


TEK1041 


IEK1091 


“variable of length 4, 


(Condition code - 8) IEK1101 


Programmer Response: Probable 
user error. Correct or delete the 
invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


* Have source and associated 
listing available. 


THE BACKSPACE/REWIND/END FILE 
STATEMENT HAS AN INVALID 
DELIMITER. 

8) 


(Condition code - IEK1111 


Programmer Response: Probable 
user error. Correct or delete the 
invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE BACKSPACE/REWIND/END FILE 
STATEMENT HAS A DATA SET REFERENCE 
NUMBER THAT IS EITHER A 
NON-INTEGER OR AN ARRAY NAME. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


specified data set reference 
number is either an unsigned 
integer constant or an integer 
If the 
problem recurs, do the following 


before calling IBM for programming 


support: 


e Have source and associated 
listing available. 


THE PAUSE STATEMENT HAS A 
MISPLACED DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


PAUSE statement contains either no 


delimiter or a literal constant 


enclosed in single quotes. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


¢ Have source and associated 
listing available. 


IEK1121 


THE PAUSE STATEMENT SPECIFIES A 
_VALUE WHICH IS NEITHER A LITERAL 
‘NOR AN INTEGER CONSTANT. 


(Condition code ~- 8) 


Programmer Response: Probable 


user error. Correct or delete the 
value. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Have source and associated 
listing available. 


THE PAUSE STATEMENT HAS MORE THAN 
255 CHARACTERS IN ITS LITERAL 
FIELD. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid characters. Make sure 
that continuation cards are 
correctly indicated. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE DICTIONARY HAS OVERFLOWED. 


(Condition code - 16) 


Programmer Response: Probable 
user error. If the SIZE parameter 


is specified incorrectly, 

(IEK410I) correct it and resubmit 
the job. If SIZE is coded 
correctly, then increase the SIZE 
value. Make sure that the region 
Or partition in which the compiler 
is running is at least 10K larger 
than the specified SIZE value. If 
SIZE is not specified, increase 
the REGION size on the JOB or EXEC 
card. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Make sure that MSGLEVEL=(1,1) 
was specified in the JOB 
statement. 


e Have source and associated 
listing available. 


e Have available the value of the 
- SIZE parameter assigned at 
~ system generation time. 
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IEK1151I 


IEK1161 


IEK1171 


IEK1 201 
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THE VARIABLE RETURN STATEMENT HAS 
NEITHER AN INTEGER CONSTANT NOR 
VARIABLE. FOLLOWING THE KEYWORD. 


(Condition code - 8) IEK1211 


Programmer Response: Probable 
user error. Correct or delete the 


invalid constant or variable. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE DO STATEMENT OR IMPLIED DO HAS 
AN INVALID PARAMETER. 


(Condition code - 8) 
IEK1221 


Programmer Response: Probable 
user error. Make sure that the DO 


variable is a non-subscripted 
integer variable. Check that the 
initial value, test value, and 
increment (if specified) are 
either unsigned integer constants 
greater than zero, or unsigned 
nonsubscripted integer variables 
whose value is greater than zero. 
Verify that the test value does 
not exceed the allowable 
magnitude. If the problem recurs, 
do the following before calling 
IBM for programming support: 
IEK1231 
e Have source and associated 
listing available. 


THE BLOCK DATA STATEMENT HAS AN 
INVALID DELIMITER. 


_ (Condition code:- 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
IEK1241I 
e Have source and associated 
listing available. 


THE BLOCK DATA STATEMENT WAS NOT 
THE FIRST STATEMENT OF THE 
SUBPROGRAM, 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete the invalid 


delimiter. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and. associated 
listing available. 


THE DATA STATEMENT HAS A VARIABLE 
WHICH HAS A NON-ALPHABETIC FIRST 
CHARACTER. 


(Condition code - 8) 


Probable 
or delete the 


Programmer Response: 
user error. Correct 


invalid variable, or correct any 
erroneous delimiters. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE DATA STATEMENT CONTAINS A 
SUBSCRIPTED VARIABLE WHICH HAS NOT 
BEEN DEFINED AS AN ARRAY. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Either define the 


variable as an array, Or correct 
the variable in the DATA 
statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE DATA STATEMENT HAS AN INVALID 
DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct. or delete the 


invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE DATA STATEMENT HAS A VARIABLE 
WITH AN INVALID INTEGER SUBSCRIPT. 


(Condition code - 8) 


Programmer Response: Probable 
user.error. . Make sure that the 


subscript quantity contains only 
integer constants separated by 
commas. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Have source and associated 
listing available. 


IEK1251 


IEK1291 


TEK1321 


IEK1331 


THE DATA STATEMENT HAS A VARIABLE IEK1341I 
WITH A SUBSCRIPT THAT CONTAINS AN 
INVALID DELIMITER. 


(Condition code —- 8) 


Programmer Response: Probable 
user error. Correct or delete the 
invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 


support: 


e Have source and associated 
listing available. 

THE. STATEMENT CONTAINS AN INVALID IEK1351 

DATA. CONSTANT. 


(Condition code -. 8) 


Programmer Response: Probable 
user error. Make sure that the 


constant is valid for its 
designated class and/or type. 
the problem recurs, do the 
following before calling IBM for 
programming support: 


If 


® Have source and associated 
listing available. 


THE DATA STATEMENT HAS. AN INVALID 
DELIMITER IN ITS INITIALIZATION 
VALUES. 
TEK1361 


(Condition code —- 8) 


Programmer Response: Probable 
user error. Correct or delete the 
invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE DO STATEMENT CANNOT FOLLOW A 
LOGICAL IF STATEMENT. 
IEK1371 


(Condition code — 8) 


Programmer Response: Probable 
user error. Change the DO to a GO 


TO n, where n is the statement 
label of the DO located elsewhere 
in the program unit. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have.source and associated 
listing available. 


THE DO STATEMENT HAS AN INVALID 
INTEGER DO VARIABLE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


integer DO variable is a non- 
subscripted integer variable. 
the problem recurs, do the 
following before calling IBM for 
programming support: 


If 


e Have source and associated 
listing available. 


THE DO STATEMENT OR IMPLIED DO HAS 
AN INVALID TEST VALUE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


test value is either an unsigned 
integer constant greater than 
zero, Or an unsigned 
nonsubscripted integer variable 
greater than zero. Verify that 
the test value does not exceed 
234-1. If the problem recurs, do 
the following before calling IBM 
for programming support: 


© Have. source and associated 
listing available. 


THE NUMBER OF NESTED DO'S EXCEEDS 
THE COMPILER LIMIT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


Maximum level of nesting for DO 
loops, 25, is not exceeded. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE DO STATEMENT OR IMPLIED DO HAS 
AN INVALID INCREMENT VALUE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


increment value is either an 
unsigned integer constant greater 
than zero, or an unsigned non- 
subscripted integer variable 
greater than zero. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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IEK1 381 


ITEK1391 


IEK1401 


TEK1411 
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® Have source and associated 
listing available. 


THE DO STATEMENT HAS A PREVIOUSLY 
DEFINED STATEMENT NUMBER SPECIFIED 
TO END THE DO RANGE. 


(Condition code - 8) 

IEK1431 
Programmer Response: Probable 
user error. Verify that the 
statement number specified to end 
the DO range is an executable 
statement number appearing after 
the DO statement. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


A LOGICAL IF IS FOLLOWED BY 
ANOTHER LOGICAL IF OR A 
SPECIFICATION STATEMENT. 


ITEK1441 


(Condition code - 8) 


Programmer Response: Probable 
user error. Change the latter 


logical IF to a GO TO n, where n 
is the statement label of the 
logical IF located elsewhere in 
the program unit. Include the 
specification statement in the 
prescribed order prior to 
executable statements and 
statement function definitions, if 
any. If the problem recurs, do 
the following before calling IBM 
for programming support: 


TEK1451I 


.® Have source and associated 


listing available. 


THE IF STATEMENT BEGINS WITH AN 
INVALID CHARACTER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
invalid character. If the problem 
recurs, do the following before 
calling IBM for programming 


support: 


IEK146I1 


e Have source and associated 
listing available. 


THE FORMAT STATEMENT DOES NOT END 
WITH A RIGHT PARENTHESIS. 


(Condition code - 8). 


Programmer Response: Probable 
user error. Correct any invalid 


delimiters and include the right 


limit is not -exceeded,. 


parenthesis. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE STATEMENT FUNCTION HAS AN 
ARGUMENT WHICH IS NOT A VARIABLE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. ‘Make sure that the 


arguments are non-subscripted 
variables. If the problem recurs, 
do the following defore calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE STATEMENT FUNCTION HAS MORE 
THAN 20 ARGUMENTS. 


(Condition. code - 8) 


Programmer Response: Probable 
user error. Redefine the 


arguments so that the 20 argument 
If the 
problem recurs, do the following 
before calling IBM for programming 
support: : 


® Have source and associated 
listing available, 


THE STATEMENT FUNCTION HAS AN 
INVALID DELIMITER. 


(Condition code - 8) 


Programmer Response: » Probable 
user error. Correct or delete the 


invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: cee 


® Have source and associated 
listing available. 


THE STATEMENT FUNCTION HAS A 
MISPLACED EQUAL SIGN. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
misplaced equal sign. If the 


problem recurs, do the following 
before calling IBM for programming 
support: 


e. Have source and associated 
listing available. 


IEK1471 


ITEK1481 


IEK1 491 


IEK1i501 


A STATEMENT FUNCTION DEFINITION 
MUST PRECEDE THE FIRST: EXECUTABLE 
STATEMENT. 
IEK1511I 
(Condition code - 8) 


Programmer Response: Probable 
user error. ‘Resequence the 


definition so that it follows only 
SUBPROGRAM, IMPLICIT, or other 
specification statements. Include 
a DIMENSION statement if it has 
been omitted. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. IEK1i521 

THE DIMENSIONED ITEM HAS A 

NON-INTEGER SUBSCRIPT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Verify that the 


subscript quantity is validly 
constructed. If the problem 
recurs, do the following before 
calling IBM for programmer 
support: 


e Have source and associated 
listing available. IEK1531 

A VARIABLE TO BE DIMENSIONED USING 

ADJUSTABLE DIMENSIONS MUST HAVE: 

BEEN PASSED AS AN ARGUMENT AND 

MUST NOT APPEAR IN. COMMON. 


(Condition code - 8) 


Programmer Response: Probable 


user error. Remove the variable 


name from the COMMON statement, if 


it has been entered in a COMMON 
statement. Place the variable in 
the argument list, if not already 
there. If the problem recurs, do 
the following before calling IBM 
for programming support: 

e Have source and associated IEK1i561I 
listing available. 


THE DIMENSIONED ITEM HAS AN 
INVALID DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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e Have source and associated 
listing available. 


THE STATEMENT SPECIFIES A 
NON-VARIABLE TO BE DIMENSIONED. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 


non-variable name. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e® Have source and associated 
listing available. 


THE SUBPROGRAM STATEMENT HAS AN 
INVALID DELIMITER IN THE ARGUMENT 
LIST. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. 


THE STATEMENT HAS AN INVALID NAME 
SPECIFIED AS A FUNCTION REFERENCE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


function has been correctly 
defined. Verify that the type of 
the name used for the reference 
agrees with the type of name used 
in the definition. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE I/O STATEMENT HAS AN INVALID 
NAME PRECEDING THE EQUAL SIGN. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid name. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


-e Have source and associated 
listing available. 
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ITEK1571 


IEK1581I 


IEK1591 


IEK1601 
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THE I/O STATEMENT HAS A 
NON-VARIABLE SPECIFIED AS A LIST 
ITEM. 


(Condition code - 8) 


Programmer Response: Probable IEK1611 
user error. Make sure that the 
I/O list contains variable names, 
subscripted or unsubscripted array 
names, Or array names accompanied 
by indexing specifications in the 
form of an implied DO. Verify 
that no function references or 
arithmetic expressions appear in 
the I/O list. Use the MAP option 
to determine the use of names in 
the program unit. If the problem 
recurs, do the following before 
calling IBM for programming 
support: IEK1631 
e Have source and associated 

listing available. 


THE I/O STATEMENT HAS AN IMPROPER 
PAIRING OF PARENTHESES IN AN 
IMPLIED DO, OR A NON-INTEGRAL 
INDEX. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that there 
are as many left parentheses as 
there are right parentheses. 
Correct any invalid index. If the 
problem recurs, do the following 
before calling IBM for programming 


IEK1641 
support: : 


© Have source and associated 


listing available. 


THE FORMAT STATEMENT DOES NOT HAVE 


A STATEMENT NUMBER. 


(condition code - 4) 


Programmer Response: Probable 


user error. Insert the required 
statement number. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 

® Have source and associated IEK1651 
listing available. 


THE I/O STATEMENT HAS AN INVALID 


DELIMITER IN THE PARAMETERS. 
(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid delimiter. If the problem 
recurs, do the following before 


‘DIMENSION. statement. 


calling IBM for pr aes 
support: 


e Have source and associated 
listing available. 


THE I/O STATEMENT HAS A DUPLICATE 
PARAMETER. 


(Condition code -. 8) 


Programmer Response: Probable 


user error. Delete the duplicate 
parameter. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE I/O STATEMENT HAS AN ARRAY 
WHICH IS NOT DIMENSIONED. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


subscripted array name or array 
name in the form of an IMPLIED DO 
has been previously declared ina 
If. the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE I/O STATEMENT HAS AN 


ARITHMETIC EXPRESSION OR A 


FUNCTION NAME SPECIFIED AS A LIST 
ITEM. 


(Condition code - 8) 


Programmer Response: Probable 


user error. Verify that no 
function references or arithmetic 
expressions are contained in the 
I/O list. If the problem recurs, 


Go the following: before calling 


IBM for programming support: 


e Have source and associated 
listing available. 


THE I/O STATEMENT HAS A PARAMETER 


WHICH IS NOT AN ARRAY AND NOT A 


NAMELIST NAME. 
(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
invalid parameter. If the problem 
recurs, do the following before 
calling IBM for erogeee ne 


support: 


IEK1661 


IEK1671 


TEK1681 


e Have source and associated IEK1691I 


listing available. 


THE I/O STATEMENT HAS A 
NON-INTEGER CONSTANT OR VARIABLE 
REPRESENTING THE DATA SET 
REFERENCE NUMBER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 
data set reference number is 
either an unsigned integer 
constant or an integer variable of 
length 4 If the problem recurs, 
do the following before calling 
IBM for programming support: 


IEK1701 


e Have source and associated 
listing available. 


THE STATEMENT HAS AN INVALID USE 
OF A STATEMENT FUNCTION. NAME. 
(condition code - 8) 

Programmer Response: Probable 
user error. Verify that the 
statement function name has been 
previously defined. Correct any 
invalid references. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


IEK1711 


e Have source and associated 
listing available. 


THE STATEMENT SPECIFIES AS A 
SUBPROGRAM NAME A VARIABLE WHICH 
HAS BEEN PREVIOUSLY USED AS A 
NON-SUBPROGRAM NAME. 


(Condition code - 8) 


Programmer Response: Probable 
user error. If the desired 


subprogram name duplicates a 
variable name, change the variable 
name and all references to it. 

Use the XREF option to determine 
where the variable occurs if the 
program unit contains many 
statements. If the subroutine 
name is in error, correct it. 
the problem recurs, do the 
following before calling IBM for 
programming support: 


If 


IEK1761 
e Have source and associated 
listing available. 


e Make sure that the XREF option 
_is specified in the PARM field 


of the EXEC. statement, and that 


the necessary DD statement is 
included. 


THE DIRECT ACCESS I/O STATEMENT 
MAY NOT SPECIFY A NAMELIST NAME. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Change the data set 


reference number so that it refers 
to a valid sequential device. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE DIRECT ACCESS I/O STATEMENT 
HAS A NON-INTEGER SPECIFYING THE 
RECORD'S RELATIVE. POSITION. 
(Condition code. -.8) 


Probable 


Programmer Response: 
user error. Correct the invalid 


non-integer reference. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE NAME SPECIFIED FOR AN ENTRY 
POINT HAS ALREADY BEEN USED AS 
EITHER A VARIABLE SUBROUTINE OR 
FUNCTION NAME. 


‘(Condition code: 8) 


Programmer Respobees _. Probable 
user error. Change the entry 


point name and all references to. 
it so that duplication is 
eliminated. Determine if the name 
was erroneously used previously 
and correct it. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement, and that 
the necessary DD statement is 
included. 


THE I/O STATEMENT CONTAINS INVALID 
SYNTAX IN ITS IMPLIED DO. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that 


indexing parameters are correctly 
specified. Verify that there are 
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IEK1921 


IEK1931- 


IEK1941 


184 


no more than 20 implied DO's per 
Statement. Correct any erroneous 
delimiters. If the problem 
recurs, do the following before 
calling IBM for programming 
support : 


® Have source and associated 
listing available. 


THE STATEMENT HAS A LABEL WHICH IS 
SPECIFIED AS BOTH THE LABEL OF A 

FORMAT STATEMENT AND THE OBJECT OF 
A BRANCH. IEK1971 


(Condition code - 8) 


Programmer Response: Probable 
user error. If the branch has 
been specified erroneously to a 
FORMAT statement, correct it. 
Correct or delete any misplaced 
labels. Use the XREF option for 
listings of the internal statement 
number of the statements in which 
the label is defined and 
referenced. If the problem 
recurs, do the following before 
calling IBM for programming 
support: IEK1991 
e Have source and associated 

listing available. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement, and that 
the necessary DD statement is 
included. ss 


THE STATEMENT NUMBER HAS BEEN 
PREVIOUSLY DEFINED. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Change the statement 
number. Use the XREF option where 
many labels occur to determine 
which are unused. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IEK200I 


e Have source and associated 
listing available. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement, and that 
the necessary DD statement is 
included. 

| IEK2021 

THE TYPE STATEMENT HAS A MISSING 

DELIMITER IN THE INITIALIZATION 

VALUES. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct any invalid 


delimiters. Supply the missing 
delimiter. If the problem recurs, 
do the following before calling 


' IBM for programming support: 


e Have source and associated 
listing available. 


THE STOP STATEMENT HAS A 
NON-INTEGER CONSTANT AFTER THE 
KEYWORD. 


(condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


constant following the keyword is 
a string of 1 to 5 decimal digits, 
inclusive. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE SUBROUTINE OR FUNCTION 
STATEMENT WAS NOT THE FIRST 
STATEMENT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that no 


statements except comments occur 
prior to the SUBROUTINE or 
FUNCTION statement. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


® Have source and associated 
listing available. 


QUOTE LITERALS MAY APPEAR ONLY IN 
CALL, DATA INITIALIZATION, 
FUNCTION AND FORMAT STATEMENTS. 


(condition code - 8) 


Programmer Response: Probable 
user error. Delete the invalid 
reference to the quote literals. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE STATEMENT HAS A VARIABLE WHICH 
HAS BEEN PREVIOUSLY DIMENSIONED. 
THE INITIAL DIMENSION FACTORS ARE 
USED. 





IEK2031 


IEK2041 


IEK2051 


IEK2061 


(Condition code - 4) 


Programmer Response: Probable 
user error. Delete the 


unnecessary or erroneous dimension 
specification. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IEK2071 


e Have source and associated 
listing available. 


AN ENTRY STATEMENT MUST NOT APPEAR 
IN A MAIN PROGRAM. THE STATEMENT 
IS IGNORED. 


(Condition code - 8) 


Programmer Response: Probable 
user errore Delete the ENTRY 


statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 

e Have source and associated IEK2081 
listing available. 


THE STOP STATEMENT HAS AN INVALID 
DELIMITER. 


(Condition code - 4). 


Programmer Response: Probable 
user error. Correct the invalid 


delimiter. If the problem recurs, 
do the following before calling 


IBM for programming support: 


e Have source and associated 
listing available. . 


THE ASSIGNED OR COMPUTED GO TO HAS 


AN INVALID ELEMENT FOLLOWING THE 
CLOSING PARENTHESIS. 


(Condition code - 4) IEK209I1 


Programmer Response: Probable 
user error. Correct or delete the 


invalid element. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE STATEMENT HAS A 
NON-SUBSCRIPTED ARRAY ITEM. 


(Condition code - 4). 


Programmer Response: Probable 
user error. Correct the invalid 


array reference. If the problem 
recurs, do the following before 
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statement. 


calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE CONTINUE STATEMENT DOES NOT 
END AFTER THE KEY WORD CONTINUE. 


(Condition code —- 4) 


Programmer Response: Probable 
user error. Delete any code 


following the CONTINUE keyword. 
Make sure that a continuation has 
not been indicated on the 
statement immediately following 
the CONTINUE. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE CONTINUE STATEMENT DOES NOT 
HAVE A STATEMENT NUMBER. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Delete the CONTINUE 


statement if no related diagnostic 
appears with respect to undefined 
statement numbers. If there is an 
undefined statement number related 
to a label omission on the 
CONTINUE, then correct the 
CONTINUE statement. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE STATEMENT HAS AN OCTAL 
CONSTANT SPECIFIED AS AN INITIAL 
VALUE. THE VALUE IS REPLACED BY 
ZERO. 


(Condition code — 4) 


Programmer Response: Probable 
user error. If the value of the 


octal constant is necessary, 
convert it to the appropriate 
hexadecimal equivalent. Verify 
that a leading "0" has not been 
inadvertently specified for a 
leading “0" in an initialization 
If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 
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IEK2111I 


IEK2121 


TEK2221 


IEK2241 


IEK2251 


184.2 


THE STATEMENT HAS A COMPLEX 
CONSTANT WHOSE REAL CONSTANTS 
DIFFER IN LENGTH. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Correct the constant 


so that both parts are either 
REAL*4 or REAL*8. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IEK2261 


e Have source and associated 
listing available. 


THE BLOCK DATA SUBPROGRAM CONTAINS 
EXECUTABLE STATEMENT(S). THE 
EXECUTABLE STATEMENT(S) IS 
IGNORED. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Delete the executable 


statements. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IEK2291 


e® Have source and associated 
listing available. 


THE EXPRESSION HAS A LITERAL WITH 
A MISSING DELIMITER. 


(Condition code - 4) 


Programmer Response: Probable 


user error. Correct invalid 
delimiters or insert the missing 
delimiter. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. 


THE STATEMENT AFTER AN ARITHMETIC 
IF, GO TO, OR RETURN HAS NO LABEL. IEK3021 


(Condition code -. 4) 


Programmer Response: Probable 
user error. Insert any necessary 


labels. If the problem recurs, do 
the following before calling IBM 
for programming support: 


® Have source and associated 
listing available. 


A LABEL APPEARS ON A 
NON-EXECUTABLE STATEMENT. 
LABEL IS IGNORED. 


THE 


(Condition code - 4) 


Programmer Response: Probable 
user error. Delete the label. If 


the problem recurs, do the 
following before calling IBM for 
programming support: 


® Have source and associated 
listing available. 


THE STATEMENT HAS A VARIABLE WITH 


MORE THAN SIX CHARACTERS. THE 
RIGHTMOST CHARACTERS ARE 
TRUNCATED. 

(Condition code - 4) 
Programmer Response: Probable 


user error. Delete extraneous 
characters, or insert any missing 
delimiter. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. 


ALL THE ARGUMENTS OF AN ARITHMETIC 
STATEMENT FUNCTION ARE NOT USED IN 
THE DEFINITION. 


(Condition code -— &) 


Programmer Response: Probable 
user error. If the definition is 


correct, then delete extraneous 
arguments. If arguments were 
omitted in the definition, then 
include them. Verify that the 
expression on the right contains 
as many distinct variables as 
there are distinct dummy 
arguments. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE EQUIVALENCE STATEMENT HAS 
EXTENDED COMMON BACKWARDS. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that any 


implicit equivalencing or 
assignment statements involving 
arrays do not create an extension 
such that elements are added 
before the beginning of an 
established COMMON block. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 





IEK3031 


TEK3041 


IEK305I 


IEK306I 


e Have source and associated 
listing available. 


THE EQUIVALENCE STATEMENT CONTAINS 
AN ARRAY WHICH IS NOT DIMENSIONED. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Include the necessary 


subscript quantity for the array 
name. If the problem recurs, do 
the following before calling IBM 
for programming support: 

e Have source and associated IEK3071 
listing available. 


THE EQUIVALENCE STATEMENT HAS 
LINKED BLOCKS OF COMMON TOGETHER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that 


implicit equivalencing does not 
link COMMON blocks together. Use 
the MAP option to determine 
locations of variable names in the 
COMMON blocks in question. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 

® Have source and associated IEK3081 
listing available. 


e Make sure that the MAP option is 
specified in the PARM field of 
the EXEC statement. 


THE EQUIVALENCE STATEMENT CONTAINS 
AN ARRAY WITH A SUBSCRIPT WHICH IS 
OUT OF RANGE. | | 


(Condition code - 4) 


Programmer Response: Probable 
user error. Correct the invalid 


subscript. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


e Make sure that the XREF option 
is specified in the PARM 
parameter of the EXEC statement, 
and that the associated DD 
statement is included in the job 
stream. 


IEK3121 


THE EQUIVALENCE STATEMENT HAS AN 
INCONSISTENCY. 


(Condition code - 8). 
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Programmer Response: Probable 
user error. Make sure that the 
EQUIVALENCE statement does not 
contradict itself or any 
previously established 
equivalences. Verify that 
implicit equivalencing, if it 
occurs, does not create 
inconsistencies. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE DATA STATEMENT CONTAINS A 
VARIABLE THAT IS NOT REFERENCED. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Make sure that the 


indicated variable has not 
inadvertently been omitted from a 
program unit. If not, delete the 
variable from the DATA statement. 
If the problem recurs, do the 
following before calling IBM for 
programming support: : 


e Have source and associated 
listing available. 


THE EQUIVALENCE STATEMENT HAS 
EQUIVALENCED TWO VARIABLES IN THE 
SAME COMMON BLOCK. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that source 


is correct. If necessary and if 
possible, replace one of the 
invalid variables with a variable 
not in COMMON. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


e Make sure that the MAP option is 
specified in the PARM field of 
the EXEC statement. 


THE EQUIVALENCE STATEMENT CONTAINS 
AN EXTERNAL REFERENCE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete or correct the 
invalid externally referenced name 
in the EQUIVALENCE group. If the 
problem recurs, do the following 
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TEK3141 


IEK3151 


IEK3171. 


184.4 


Programmer Response: . 
-user error. 


elements of a COMMON block in any 


before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE EQUIVALENCE STATEMENT MAY 
CAUSE WORD: BOUNDARY ERRORS. 

IEK3181I 
(Condition code - 4) 


Programmer Response: Probable 
user error. Arrange variables in 


fixed descending order according 
to length, or force proper 
alignment with dummy variables. 
Construct the group so that the 
displacement of each variable in 
the group can be evenly divided by 
the reference number associated 
with the variable. Use the MAP 
option for information on 
variables and relative addresses. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


e Make sure that the MAP option is 
specified in the PARM field of 
the EXEC statement. . 


THE EQUIVALENCE STATEMENT WILL 
CAUSE WORD BOUNDARY ERRORS. 


(Condition. code — 4) 


Programmer Response: Probable 
user error. Arrange variable in 


fixed descending order according 
to length or force proper 
alignment with dummy variables. 
Construct the group so that the 
displacement of each variable in 
the group can be evenly divided by 


IEK3201I 


the reference number associated 


with the variable. Use the MAP 
option for information on 
variables and relative addresses. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE BLOCK DATA PROGRAM DOES NOT 
CONTAIN A COMMON STATEMENT. 

IEK3221 
(Condition code - 8) 


Probable 
Make sure that all 


main program or subprogram are 
listed in a COMMON statement in 


TEK3191 


the BLOCK DATA subprogram. If the 
problem recurs, do the following 
before calling IBM for progamming 
support: 


e Have source and associated 
listing available. 


THE DATA STATEMENT IS USED TO 
ENTER DATA INTO COMMON OUTSIDE A 
BLOCK DATA SUBPROGRAM. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete the invalid 


reference to the variable in 
COMMON. Include the reference in 
a BLOCK DATA subprogram or in an 
assignment statement. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


DATA IS ENTERED INTO A LOCAL 
VARIABLE IN A BLOCK DATA PROGRAM. 


(Condition code - 8) 7 


Programmer Response: Probable 
user error. Make sure that the 


variable appears in COMMON. If 


the problem recurs, do the 


following before calling IBM for 
programming support: 


-@ Have source and associated 


listing available. 


DATA MAY NOT BE ENTERED INTO A 
VARIABLE WHICH HAS BEEN PASSED AS 
AN ARGUMENT. . 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete any dummy 


arguments that appear in the data 
initialization list. Make sure 
source is correct. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE COMMON STATEMENT MAY CAUSE 
WORD BOUNDARY ERRORS. 


(Condition code - 4) 


Programmer Response: Probable 


user error. Arrange variables in 
fixed descending order according 








IEK3231 


IEK3321 


ITEK3 341 


to length, or force proper 
alignment with dummy variables. 
Construct the block so that the 
displacement of each variable can 


be evenly divided by the reference 
number associated with the 


variable. Use the MAP option for 
information on the relative 
address of each variable in the 
block. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Have source and associated 
listing available. 
IEK350I 
e Make sure that the MAP option is 
specified in the PARM field of 
the EXEC statement. 


THE COMMON STATEMENT 
WORD BOUNDARY ERROR. 


WILL CAUSE A 
(Condition code - 4) 


Programmer Response: Probable 
user error. Arrange variable in 
fixed descending order according 
to length, or force proper 
alignment with dummy variables, 
Construct the block so that the 
displacement of each variable can 
be evenly divided by the reference 
number associated with the 
variable. Use the MAP option for 
information on the relative 
address of each variable in the 
block. If the problem recurs, do 
the following before calling IBM 
for programming support: 


ITEK3511I 


e Have source and associated 
listing available. 

e Make sure that the MAP option is 
specified in the PARM field of 
the EXEC statement. 


THE STATEMENT NUMBER IS UNDEFINED. 


(condition code - 8) 


Programmer Response: Probable 
user error. Correct the source so 


that a valid statement number is 
referenced. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. 


THE COMMON STATEMENT HAS A 
VARIABLE WITH A VARIABLE 
DIMENSION. 
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(Condition code -. 8) 


Programmer Response: Probable 
user error. Make sure that a 


subscript quantity contains only 1 
through 7 unsigned integer 
constants separated by commas. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE DATA STATEMENT HAS A MISSING 
PARENTHESIS. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct any invalid 


delimiters and insert the 
appropriate parenthesis. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


® Have source and associated 
listing available. 


THE DATA INITIALIZATION VALUE IS 
LARGER THAN THE VARIABLE OR ARRAY 
ELEMENT — TRUNCATION OR. .SPILL WILL 
OCCUR. 

(Condition code -. 4) 


Explanation: An array or variable 


was initialized with a constant 


whose length was greater than the 
length of an array element. If 
the constant was specified as the 
first element in a non-subscripted 
array, part of the constant will = 
spill over into the succeeding 
array element(s). If the constant 
was specified as other than the 
first element in a non-subscripted 
array, or if it was specified as 
any element in a subscripted 
array, the constant will be 
truncated. 


Programmer Response: Probable 
user error. If spill is not 


desired, make sure that the length 
of a constant specified does not 
exceed the length of the element. 
If truncation is not desired, make 
sure that the length of any 
constant specified as a subsequent 
element in the array does not 
exceed the element length. If the 
problem recurs, do the following 
before calling IBM for programming 
support: Ee hee 
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IEK3521 


IEK3531 


IEK3541 


e Have source and associated 
listing available. 


THE DATA STATEMENT HAS TOO MANY 
INITIALIZATION VALUES. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Make sure that a 


one-to-one correspondence exists 
between the total number of 
elements specified or implied in 
the data list and the total number 
of constants specified by the 
corresponding list embedded in 
Slashes. If the problem recurs, 
do the following before calling 
IBM for programming support: 


IEK3561 


e Have source and associated 
listing available. 


THE DIMENSION STATEMENT HAS A 
VARIABLE WHICH HAS A SUBSCRIPT OF 
REAL MODE. : 
IEK3571 
(Condition code - 8) 


Programmer Response: Probable 
user error. Verify that all 


subscripts are integer. Make sure 
that only a combination of integer 
and real mixed mode expressions 
occurs, if mixed mode is present. 
Check that no subscript rules are 
violated. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. . IEK3581 

A VARIABLE TO BE DIMENSIONED USING 

ADJUSTABLE DIMENSIONS MUST HAVE 

BEEN PASSED AS AN ARGUMENT AND 


MUST NOT APPEAR IN COMMON. 


IEK3551.. 


184.6 


(Condition code - 8) 


Programmer Response: Probable 
user error. If the variable has 


not been entered in a COMMON 
statement, remove it. If the 
variable is not already in the 


argument list, place it there. If 


the problem recurs, do the 
following before calling IBM for 


_ programming SUPROTE} 


7) Have source and associated 


clisting: avadlabley: 
ADCON TABLE EXCEEDED. 


(Condition code - 16). 


Programmer Response: Probable 


user error. Restructure any 
complex statement into less 
involved statements. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


A PARAMETER CANNOT ALSO BE IN 
COMMON. 


(Condition code —- 8) 


Programmer Response: Probable 
user error. Correct the source 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE ARRAY HAS AN INCORRECT 
ADJUSTABLE DIMENSION. 


(Condiiton code ~ 8) 


Programmer Response: Probable 
user error. Correct invalid 
adjustable dimension. If the 


~problem recurs, do the following 


before calling IBM for programming 


- support: 


e Have source and associated 
listing available. 


THE ADJUSTABLE DIMENSION IS NOT 
PASSED AS AN ARGUMENT OR IN 
COMMON. _ 


(Condition code - 8) 


Programmer Response: Probable 
user error. Either include the 


adjustable dimension in an 
argument list, or place it in 
COMMON. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Have source and associated 
listing available. 


® Make sure that the XREF option 
is specified in the PARM field 
and that the associated DD 
statement is included in the job 
stream. = 





IEK402TI 


TEK4031 


TEK4O4l 


IEK41i0I 


SPECIFIED. 


OPEN ERROR ON ddname 


Explanation: The data set corres- 
ponding to the ddname cannot be 
opened. If either the EDIT or the 
XREF option has been requested, 
the corresponding SYSUT1 or SYSUT2 
DD card has not been found. 


“(Condition code —- 16) 


Programmer Response: Probable 
user error. Make sure that 


appropriate DD cards are included 
in correct sequence with necessary 
keyword and/or positional 
parameters. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
IEK500I 

* Make sure that MSGLEVEL=(1, 1) 

was specified in the JOB 

statement. 


® Have source and associated 
listing available. - 


OPEN ERROR ON SYSPRINT 


(Condition code - 16) 


Programmer Response: Probable 
user error. Check the SYSPRINT DD 


statement and recompile. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MSGLEVEL=(1,1) 
was specified in the JOB 
statement. IEK5011 

® Have source and associated 
listing available. 


SYNCHRONOUS ERROR ON SYSPRINT 


(Condition code - 16) 


Programmer Response: Probable 
user error. Check the SYSPRINT DD 
statement and recompile. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 

e Make sure that MSGLEVEL=(1, 1) IEK502I 
was specified in the JOB 

statement. 


e Have source and associated 
listing available. 


AN INVALID SIZE PARAMETER HAS BEEN 
IT WILL BE IGNORED. 


(Condition code - 4) 
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Programmer Response: 


Programmer Response: Probable 
user error. Correct the SIZE 
parameter. Make sure that it is 
specified within the allowable 
range, and that the size of the 
region or partition in which the 
compiler is running is at least 
10K larger than the specified SIZE 
value. If the problem recurs, do 
the following before calling IBM 
for programming support: > 


e Make sure that MSGLEVEL=(1,1) 
was specified in the JOB 
statement. 


e Have source and associated 
listing available. 


AN ARGUMENT TO A FORTRAN SUPPLIED 
FUNCTION IS OF THE WRONG TYPE. 

THE FUNCTION IS ASSUMED TO BE USER 
DEFINED. 


(Condition code - 4) 


Probable 
user error. If the function is 
user-suppied, make sure the 
function name appears in an 
EXTERNAL statement. Make sure 
that an argument mode is correct. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE EXPRESSION HAS A COMPLEX 
EXPONENT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the exponent 
so that it is integral with a 
complex base, and otherwise 
integral or real. If the problem 
recurs, do the following before 
calling IBM for programming 
supports 


e Have source and associated 
listing available. 


THE EXPRESSION HAS A BASE WHICH IS 
COMPLEX BUT THE EXPONENT IS 
NON-INTEGER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 


expression so that a complex base 
has an integer exponent. If the 
problem recurs, do the following 
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before calling IBM for programming IEK5071 


support: 


e Have source and associated 
listing available. 


A NON-SUBSCRIPTED ARRAY ITEM 
APPEARS IMPROPERLY WITHIN A 
FUNCTION REFERENCE OR A CALL. 


(Condition code - 8) 


Programmer Response: Probable 
user error, Correct the invalid 
array item following before 
calling IBM for programming 
support: IEK5081 
e Have source and associated 

listing available. 


THE BASE AND/OR EXPONENT IS A 
LOGICAL VARIABLE. 


(condition code - 8) 


Programmer Response: Probable 
user error. Make sure that base 
and/or exponent are only of type 
real, integer, or complex. Check 
placement of parentheses. If the 
problem recurs, do the following 
before calling IBM for programming : 
support: IEK5091 
® Have source and associated 

listing available. 


THE INPUT/OUTPUT STATEMENT REFERS 
TO THE STATEMENT NUMBER OF A 
NON-FORMAT STATEMENT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the invalid 


statement number. If the problem 


recurs, do the following before 


calling IBM for programming IEK5101I 


support: 


e Have source and associated 
listing available. 


THERE IS A MISSING OPERAND 
PRECEEDING A RIGHT PARENTHESIS. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the statement 
and resubmit the job. If the 


problem recurs, do the following 


before calling IBM for programming 


support: 


® Have. source and associated IEK5121 


listing available. 


A NON-SUBSCRIPTED ARRAY ITEM IS 
USED AS AN ARGUMENT TO AN IN-LINE 
FUNCTION. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the array 


item. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Have source and associated 
listing available. 


THE NUMBER OF ARGUMENTS TO AN 
IN-LINE FUNCTION IS INCORRECT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that 


necessary delimiters are 
indicated. Correct or delete 
items in the argument list. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE PROGRAM DOES NOT END WITH A 
STOP, RETURN, OR GO TO. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Insert the necessary 
terminal statement. If the 


problem recurs, do the following 
before calling IBM for programmer 
support: 


e Have source and associated 
listing available. 


THE EXPRESSION HAS A LOGICAL 
OPERATOR WITH A NON-LOGICAL 
OPERAND. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the operand. 


Make sure that a logical primary 
or logical expressions have 
correct form. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE LOGICAL IF DOES NOT CONTAIN A 
LOGICAL EXPRESSION. 











IEKS15I 


IEK5161 


IEK5201 


IEK5211 


user error. 


_ Programmer Response: 


(condition code - 8) 


Programmer Response: Probable 
Correct the 


statement. If the problem recurs 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. IEK5221 

THE EXPRESSION HAS A RELATIONAL 

OPERATOR WITH A COMPLEX OPERAND. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


complex operand. Equivalence a 


“real array of two elements to a 


complex variable to permit use of 
the relational operator, if 
necessary. If the problem recurs, 
do the following before calling 
IBM for programming support: 

e Have source and associated IEK5231 
listing available. 


THE ARITHMETIC IF CONTAINS A 
COMPLEX EXPRESSION. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 
expression. Convert the 
expression, if possible, to a 
permissible type. If the problem 
recurs, do the following before 
calling IBM for ‘programming 


support: IEK5241 


e Have source and associated 
listing available. 


THERE Is A COMMA IN AN INVALID 
POSITION. 


(Condition code - 8) 


Programmer Response: Probable 
user error, Delete or reposition 
the comma. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 


listing available. IEK5251I 


THE EXPRESSION HAS AT LEAST ONE 
EXTRA RIGHT PARENTHESIS. 


(Condition code - 8) 
Probable 


user error, Delete or correct 
extraneous and invalid 
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user errore 


parentheses. Make sure 
parentheses are balanced. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE EXPRESSION HAS AT LEAST ONE 
TOO FEW RIGHT PARENTHESES. — 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or add needed 


parentheses. Make sure 
parentheses are balanced. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


® Have source and associated 
listing available. ~— 


THE EQUAL SIGN IS IMPROPERLY USED. 


~ (Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
invalid equal sign. If the 
problem recurs, do the following 


before calling IBM for programming 


support: | 


® Have source and associated 
listing available. 


THE EXPRESSION HAS AN OPERATOR 
MISSING AFTER A RIGHT PARENTHESIS. 


(Condition code - 8) 


Programmer Response: Probable 
Insert the missing 
operator or delete the erroneous 
parenthesis. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE EXPRESSION USES A LOGICAL OR 
RELATIONAL OPERATOR INCORRECTLY. 


(Condition code ~ 8) 


Programmer Response: Probable 
user error. Either correct the 
logical or relational operator, or 
change invalid operand 
expressions. Make sure operators 
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are preceded and followed by a 
period. Verify that expressions 
precede operators where required. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


A FUNCTION NAME APPEARING AS AN 
ARGUMENT HAS NOT BEEN DECLARED 
EXTERNAL. 


IEK5421 


(Condition code - 8) 


Programmer Response: Probable 
user error. Insert the required 
EXTERNAL statement, or delete or 
correct the invalid function 
reference. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE EXPRESSION HAS A VARIABLE WITH 
AN IMPROPER NUMBER OF SUBSCRIPTS. IEK5501 


(Condition code - 8) 


Programmer Response: Probable 
user error. Check for all 


necessary delimiters. Make sure 
that there are as many subscripts 
as are declared in the associated 
specification statement. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE EXPRESSION HAS A STATEMENT 
FUNCTION REFERENCE WITH AN 


“IMPROPER NUMBER OF ARGUMENTS. 


(Condition code - 8) 


Programmer Response: Probable ITEK5521 
user error. Correct the invalid 

function reference. If the 

problem recurs, do the following 

before calling IBM for programming 


support: 


e Have source and associated 
listing available. 


AN ARGUMENT TO A LIBRARY FUNCTION 
HAS AN INVALID TYPE. 


(Condition code - 8) 


-@liminate some of the nesting. 


Programmer Response: Probable 
user error. Corrrect the invalid 
argument. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


A LOGICAL EXPRESSION APPEARS IN 
INVALID CONTEXT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


source statement. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. 


PUSHDOWN, ADCON, OR ASF ARGUMENT 
TABLE EXCEEDED. _ 


(Condition code - 16) 


Programmer Response: Probable 
user error. Change the program 


structure. If there are many 


. subroutine references in a program 
unit, subdivide the program unit. 


Restructure deeply nested 
expressions or eliminate some ASF 
arguments where many occur, if 
possible. Where parentheses are 
deeply nested, restructure the 
source statement, if possible, to 
If 
the problem recurs, do the . 
following before calling IBM for 
programming support: 


e Have. source and associated 
listing available. 


SOURCE PROGRAM IS TOO LARGE. 


(Condition code - 16) 


Programming Response: Probable 


user error.  Subdivide the program 
and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


IEK5701I 


IEK580I 


IEK600I 


TABLE EXCEEDED. 
DOWNGRADED. 


OPTIMIZATION IEK6101 


(Condition code - 0) 


Explanation: Probable user error. 
The program is too large to permit 
optimization. This is a warning 
message and appears in the source 
listing at the point where the 
table (RMAJOR) overflows. The 
compiler performs OPT=1 register 
allocation only; no other 
optimization is performed. 


Programmer Response: Probable 
user error. Either the program 


should be segmented or the size of 
the table RMAJOR should be 
increased. RMAJOR may be 
increased by increasing the size 
of the compiler at system 
generation time. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 

e Have source and associated IEK6 201 
listing available. 


COMPILER ERROR. 
(Condition code - 16) 


Explanation: One of the following 
four conditions occurred: an 
invalid adjective code was 
detected; an illegal element 
length was detected; no 
equivalence group was found; an 
unusual primary adjective code was 
detected. 


Programmer Response: Probable 
user error. Make sure that the 


source program is correct. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
~ Listing available. 
IEK6301 
INTERNAL COMPILER ERROR. 
LOGICALLY IMPOSSIBLE BRANCH TAKEN 
IN A COMPILER SUBROUTINE. 


(Condition code - 16) 
Programmer Response: Probable 
user error. Make sure that the 


source code is correct. If the 
problem recurs, do the following 
before calling IBM for programming 


support: a 


® Have source and associated 
listing available. 
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user error. 


THE STATEMENT NUMBER OR GENERATED 
LABEL IS UNREACHABLE. 


(Condition code - 4) 
Note: This message is generated 


only if OPT=2 is specified in the 
EXEC statement. - 





Programmer Response: Probable 
user error. Make sure that 


control statements indicate 
correct branch targets. Verify 
that an unlabeled STOP, RETURN, or 
GO TO does not immediately follow 
any one of these same three source 
statements. Make sure that the 
statement following an arithmetic 
IF is labeled. If the problem 
recurs, do the following before 
calling IBM for programming 
Support: 


e Have source and associated 
listing available. 


THE STATEMENT NUMBER OR GENERATED 
LABEL IS A MEMBER OF AN 
UNREACHABLE LOOP. 


(Condition code - 4) 


Note: This message is generated 
only if OPT=2 is specified in the 
EXEC statement. 


Programmer Response: Probable 
Make sure that 


control statements indicate 
correct branch targets. Correct 
labels so that the loop may be the 
target of a branch. Delete 
invalid terminal source 
statements. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. 


INTERNAL TOPOLOGICAL ANALYSIS 
TABLE EXCEEDED. 


(Condition code =- 16) 


Programmer Response: Probable 
user error. Insert statement 


numbers where a large span of 
source code exists without 
statement numbers. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 
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Programmer Response: 


Programmer Response: . 
. is correct. | 
- recurs, do the following before 
calling IBM for prograiming 
Support: . 


. © Have source and associated 


Programmer Response: 


COVERAGE BY BASE REGISTER 12 IN 
OBJECT MODULE EXCEEDED. 


(Condition code - 16) 


Programmer Response: Probable 
user error. Segment the program 


and recompile. If the problem 
recurs, do the following before 


-Ccalling IBM for programming 
support: 


e Have source and associated IEK6701I 


listing available. 
INTERNAL ADCON TABLE EXCEEDED. 
(Condition code - 16) 


Probable 
user error. Segment the program 
and recompile. If SIZE was 
specified, indicate a larger SIZE, 
if possible. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 

e Have source and associated IEK6711 
listing available. 


INTERNAL COMPILER ERROR. 
TEMPORARY FETCHED BUT NEVER 
STORED. 


(Condition code - 16) 


Probable 
Make sure that source 


user error. 
If the problem 


IEK7101 
_listing available. 
INTERNAL COMPILER ERROR. 
TO FREE A REGISTER. 


UNABLE 


(Condition code - 16) 


Probable 
user error. Segment large spans 
of unlabeled source code into 
smaller extents delimited by 
statement numbers. If the problem 


recurs, do the following before 


calling IBM for programming 


IEK662I1 
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support: IEK7201 


e Have source and associated 


listing available. 


INTERNAL COMPILER ERROR. 
TEMPORARY NOT. ENTERED IN 
ASSIGNMENT TABLE. 


(Condition code — 16) 


Programmer Response: Probable 
user error. Make sure that source 


is correct. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. 


LOGICALLY IMPOSSIBLE BRANCH TAKEN 
IN A COMPILER SUBROUTINE. 


(Condition code - 16) 


Programmer Response: Probable 
user error. Make sure that source 


code is correct. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


LOGICALLY IMPOSSIBLE BRANCH TAKEN 
IN A COMPILER SUBROUTINE. 


(Condition code - 16) 


Programmer Response: Probable 


user error. Make sure that source 
code is correct. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE FORMAT STATEMENT 
FIELD WIDTH OF ZERO. 


SPECIFIES A 


(Condition code - 8). 


Programmer Response: Probable 
user error. Correct the invalid 
field width. If the problem 
recurs, do the following before 
calling IBM for programming 


support: 


e Have source and associated 
listing available. 


THE FORMAT STATEMENT CONTAINS AN 
INVALID CHARACTER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid character. If the problem 
recurs, do the following before 


IEK7301 


ITEK7401I 


IEK7501 


IEK760I1 


calling IBM for programming 
support: 


ITEK7701 


® Have source and associated 
listing available. 


THE FORMAT STATEMENT HAS 
UNBALANCED PARENTHESES. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 


statement. Delete any unnecessary 
or insert missing parentheses. 
Make sure wH specifications are 
correct. If the problem recurs, 
do the following before calling 
IBM for programming support: 


IEK7801I 


e Have source and associated 
listing available. 


THE FORMAT STATEMENT HAS NO 
BEGINNING LEFT PARENTHESIS. 


(condition code - 8) 


Programmer Response: Probable 
user error. Correct the source 


statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 
IEK8900I 
e Have source and associated 
listing available. 


THE FORMAT STATEMENT SPECIFIES A 
COUNT OF ZERO FOR A LITERAL FIELD. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 


incorrectly specified count. If 
the problem recurs, do the 
following before calling IBM for 


programming support: 


IEK10001 


e® Have source and associated 

listing available. 
THE FORMAT STATEMENT CONTAINS A 
MEANINGLESS NUMBER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid number. If the problem 
recurs, do the following before 
calling IBM for programming 
support: ; 


e Have source and associated 
listing available. 
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THE FORMAT STATEMENT HAS A MISSING 
DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Either correct or 
delete invalid delimiters, or 
insert the missing delimiter. 
the problem recurs, do the 
following before calling IBM for 
programming support: 


If 


e Have source and associated 
listing available. 


THE FORMAT STATEMENT CONTAINS A 
NUMERIC SPECIFICATION GREATER THAN 
255. . 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the invalid 


numeric specification. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


® Have source and associated 
listing available. 


SOURCE PROGRAM IS TOO LARGE. 


(Condition code - 16) 


Programmer Response: Probable 
user error. Segment the program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming — 
support: 


e Have source and associated 
listing available. 


INTERNAL COMPILER ERROR 
(Condition code - 4) 
Explanation: An erroneous error 


number has been placed in the 
error table. 


Programmer Response: Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 


listing available. 
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LOAD MODULE EXECUTION DIAGNOSTIC MESSAGES 


The load module produces three types of 
diagnostic messages: 


e Program interrupt messages 
e Execution error messages 
e Operator message 


Program Interrupt Messages 


Program interrupt messages containing 
the old Program Status Word (PSW) are 
written when an exception occurs. The 
format of the program interrupt message 
when the extended error message facility 
has not been specified at system generation 
time is given in Figure 100. Program 
interrupt messages IHC2071I, IHC208I, and 
IHC209I are produced only when the extended 
error message facility has been specified. 
The format of these messages can be found 
in the section “Execution Error Messages." 


Note: Codes 4, 5, 6, and 7 are associated 
with the execution-time adjustment of 
boundary alignment errors and appear only 
when the system is generated to provide 
boundary alignment adjustment; i.e., when 
BOUNDRY=ALIGN is specified in the FORTLIB 
macro instruction during system generation . 
(see the System Generation publication). 


The letter A in the message indicates 
that boundary adjustment has taken 
place.The letter P in the message indicates 
that the interruption was precise. This 
will always be the case for 
non-specification interrupt messages in 
FORTRAN except when using machines with 
special hardware on which imprecise 
interruptions may occur. The eighth 
character in the PSW (i.@., 4, 5, 6, 7, 9, 
Cc, D, or F) represents the code number (in 
hexadecimal) associated with the type of 
interruption. The following text describes 
these interruptions. 


Protection Exception: The protection 
exception (code 4), is recognized when the 
key of an operand in storage does not match 
the protection key in the PSW.. A message 
is issued only if a specification exception 
age 6) has already been recognized in the 
ame instruction. Otherwise, the job 
terminates abnormally. 


If the extended error message facility 
is specified, the following information is 
provided. 

IBCOM .~. _ PROGRAM INTERRUPT - ALIGNMENT OLD 

PSW IS xxxxxxx4xxxxxxxx 
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abnormally. 


Supplemental Data: None. 
Standard Corrective Action: Continue 
execution at point of interrupt. 


Programmer Response: Probable user error. 
If the job has been terminated with a 
completion code of SYSTEM=0C6 
(specification interrupt), correct the 
source causing boundary misalignment. If 
the problem recurs, do the following before 
calling IBM for programming support: 


e Make sure that MAP, LIST, and DUMP have 
been specified as parameters on the EXEC 
statement and provide the necessary 

_ GO.SYSUDUMP or GO.SYSABEND DD statement. 


e Make sure that the XREF option is 
specified in the PARM field of the EXEC 
statement and that the necessary DD 
statement is included. 


e Have source and soeeet ate listing 
available. 


Addressing Exception: The addressing 
exception (code 5) is recognized when the 
address of the data is outside of the 
available storage for the particular 
installation. A message is issued only if 
a specification exception (code 6) has 
already been recognized in the same 
instruction. Otherwise, the job terminates 


If the extended error message facility 
is specified, the following information is 
provided. 


IBCOM - PROGRAM INTERRUPT - ALIGNMENT OLD 
PSW IS xxxxxxxSxxxxxxxx 
Supplemental Data: None. 


Standard Corrective Action: Continue 
execution at point of interrupt. | 


Programmer Response: Probable user error. 
If the job has been terminated with a 
completion code of SYSTEM=0C6 
(specification interrupt), correct the 
source causing boundary misalignment. If 
the problem recurs, do the following before 
calling IBM for programming support: 


e Make sure that MAP, LIST, and DUMP have 
been specified as parameters on the EXEC 
statement and provide the necessary 
GO.SYSUDUMP or GO.SYSABEND DD statement. 


e Make sure that the XREF option is 
specified in the PARM field of the EXEC 
statement and that the necessary DD 
statement is included. 


e Have source and associated listing 
available. 


(P) 


| 
| 
| IHC210I PROGRAM asa OLD PSW IS xxxxxxx 
| 
| 
| 
| 


Figure 100. 


Specification Exception: The specification 
exception (code 6) is recognized when a 
data address does not specify an integral 
boundary for that unit of information. For 
example, a specification error would occur 
during execution of the following 
instructions. 


REAL*8 D, E 
COMMON A, B, C 
EQUIVALENCE (B, D) 
D = 3.0D02 


Note: If an instruction contains a 
boundary violation, a specification 
interrupt occurs and the message is issued 
with code 6. The boundary adjustment 
routine is invoked if the BOUNDRY=ALIGN 
option was specified in the FORTLIB macro 
instruction during system generation. If 
an instruction which has been processed for 
a boundary violation also contains a. 


protection, addressing, or data error, the 


interrupt message is reissued with the — 
appropriate code (4, 5, or 7). The job 
then terminates because both a 
specification error and a protection, 
addressing, or data error have been 
detected. The completion code in the dump 
indicates that the job terminated because 
of the specification error. 


If the extended error message facility 
is specified, the following information is 
provided. 


IBCOM -—- PROGRAM INTERRUPT - ALIGNMENT OLD 
PSW IS xxxXxxXxx6xxxXXXxXXX 


Supplemental Data: None. 
Standard Corrective Action: Continue 
execution at point of interrupt. 


Programmer Response: Probable user 

error. Make sure that proper alignment of 
variables is guaranteed. Arrange variables 
in fixed descending order according to 
length, or force proper alignment with 
dummy variables. Construct COMMON blocks 
so that the displacement of each variable 
can be evenly divided by the reference 
number associated with the variable. 
the MAP option for information on the 
relative address of each variable in the 


Use 
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Program Interrupt Message Format Without Extended Error Message Facility 


XXXXX XXX 


block. Make sure that EQUIVALENCE 
statements do not cause misalignment. If 
the problem recurs, do the following before 
calling IBM for programming support: 


e Make sure that MAP, LIST, and DUMP have 
been specified as parameters on the EXEC 
statement and provide the necessary 
GO.SYSUDUMP or GO.SYSABEND DD statement. 


® Make sure that the XREF option is 
specified in the PARM field of the EXEC 
statement and that the necessary DD 
statement is included. 


e Have source and associated listing 
available. 


Data Exception: The data exception (code 
7), is recognized when the sign and digit 
codes for a CONVERT TO BINARY: instruction 
are incorrect. A message is issued only if 
a specification exception (code 6) has — 
already been recognized in the same 
instruction. Otherwise, the job terminates 
abnormally. 


If the extended error message facility 
is specified, the following information is 
provided. 


IBCOM -—- PROGRAM INTERRUPT -—- ALIGNMENT OLD 
PSW IS xxxXxxXxXXxX7 XXXXXXXK 
Supplemental Data: None. 


Standard Corrective Action: Continue 
execution at point of interrupt. 


Programmer Response: Probable user error. 
If the job has been terminated with a 
completion code of SYSTEM=0C6 
(specification interrupt), correct the 
source causing boundary misalignment. If 
the problem recurs, do the following before 
calling IBM for programming support: 


e Make sure that MAP, LIST, and DUMP have 
been specified as parameters on the EXEC 
Statement and provide the necessary 
GO. SYSUDUMP or GO.SYSABEND DD statement. 


e Make sure that the XREF option is : 
specified in the PARM field of the EXEC 
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statement and that the necessary DD 
statement is included. 


* Have source and associated listing 
available. 


Fixed-Point-Divide Exception: The 
fixed-point-divide exception, assigned code 
number 9, is recognized when division of a 
fixed-point number by zero is attempted. A 
fixed-point divide exception will occur 
during execution of the following 
Statement: 


K=I/J 
where: I=7 and J=0 
Note: When dealing with large numbers, the 


programmer should be aware that fixed-point 
overflow does not cause an interrupt and 
any overflow causes incorrect results. No 
error message is issued. 


Exponent-—Overflow Exception: The 
exponent-overflow exception, assigned code 


number C, is recognized when the result of 
a floating-point addition, subtraction, 
multiplication, or division is greater than 
or equal to 16°? (approximately 7.2 x 
1075). For example, an exponent-overflow 
will occur during execution of the 
statement: 


A = 1.0E+75 + 7.2E+75 


When the interrupt occurs, the result 
register contains a floating-point number 
whose fraction is normalized and whose sign 
is correct. However, the number is not 
usable for further computation since its | 
characteristic field no longer reflects the 
true exponent. The content of the result 
register as it existed when the interrupt 
occurred is printed following the program 
interrupt. message with the format: 


REGISTER CONTAINED hhhhhhhhhhhhhhhh 


hhhhhhhhhhhhhhhh is the 
floating-point number in 
hexadecimal notation. 


where: 


If the improved floating-point 
engineering change is not in effect, the 
register content cannot be used to 
calculate the true value. 
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If the improved floating-point 
engineering change is in effect, exponent 
overflow causes “exponent wraparound" - 
iee., the characteristic field represents 
an exponent that is 128 smaller than the 
correct one. Treating bits 1 to 7 (the 
exponent characteristic field) of the 
floating-point number as a binary integer, 
the true exponent may be computed as 
follows: 

TE = (Bits 1 to 7) + 128 - 64 

Before program execution continues, the 
FORTRAN library sets the result register to 
the largest possible floating-point number 
that can be represented in short precision 
(16°3#(1-16-6)) or in long precision 
(1663%*(1-16714%)), but the sign of the 
result is not changed. The condition code 
is not altered. 


Exponent-Underflow Exception: The 
exponent-underflow exception, assigned code 


number D, is recognized when the result of 
a floating-point addition, subtraction, 
multiplication, or division is less than 
16-5 (approximately 5.4x1i10-79). For 
example, an exponent-underflow exception 
will occur during execution of the 
statement: 


A = 1.0E-50 * 1.0E-50 


Although exponent underflows are 
maskable, FORTRAN jobs are executed without 
the mask so that the aed will handle 
such interrupts. 


When the interrupt occurs, the result 
register contains a floating-point number 
whose fraction is normalized and whose sign 
is correct. However, the number is not. 
usable for further computation since its 
characteristic field no longer reflects the 
true exponent. The content of the result 
register as it existed when the interrupt 
occurred is printed following the program 
interrupt message with the format: 


REGISTER CONTAINED hhhhhhhhhhhhbhhhh 


hhhhbhhhhhhhhhhhh is the 
floating-point number in 
hexadecimal notation. 


where: 


If the improved floating-point 
engineering change is not in effect, the 
exponent underflow always leaves a zero in 
the result register. 


If the improved floating-point 
engineering change is in effect, exponent 
underflow causes “exponent wraparound" —-_ 
i.e., the characteristic field represents 
an exponent that is 128 larger than the 
correct one. Treating bits 1 to 7 (the 
exponent characteristic field) of the 


floating-point number as a binary integer, 
the true exponent may be computed as 
follows: 


TE = (Bits 1 to 7) - 128 - 64 


Before program execution continues, the 
library sets the result register to a true 
zero Of correct precision. If the 
interrupt resulted from a floating-point 
addition or subtraction operation, the 
condition code is set to zero to reflect 
the setting of the result register. 


Note: The System/360 Operating System 
FORTRAN programmer who wishes to take 
advantage of the "exponent wraparound" 
feature and handle the interrupt in his own 
program must call an assembly language 
subroutine to issue a SPIE macro 
instruction that will override the FORTRAN 
interruption routine. 


Floating-Point-Divide Exception: The 
floating-point-divide exception, assigned 
code number F, is recognized when division 
of a floating-point number by zero is 
attempted. For example, a floating-point 
divide exception will occur during 
execution of the following statements: 


C=A/B 


where: A=1.0 and B=0.0 


Execution Error Messages 


Execution error messages have the form: 


IHCxxxI [message text] 
TRACEBACK FOLLOWS-ROUTINE ISN REG. 14, 


The facility for error detection and 
diagnostic messages is controlled by a 
system generation option. When the 
parameter OPTERR=INCLUDE is specified in 
the FORTLIB macro instruction at system 
generation time, the extended error 
handling facility is made available during 
program execution. This facility is not 
made available if OPTERR=EXCLUDE is 
specified or if no parameter is specified 
at system generation time. 


The description of each diagnostic 
message contains the error code, the 
abbreviated name for the origin of the 
error, and an explanation describing the 
type of error. In addition, supplemental 
data is provided and standard corrective 
action to be taken to correct the error is 
described. Supplementary data and standard 
corrective action are applicable only if 
OPTERR=INCLUDE was specified. 


Variable information in the message is 
shown as X, and in the corrective action 
descriptions, * denotes the largest 
possible number that can be represented in 
floating point. For all load module 
execution error messages except IHC210I, a 
condition code of 16 is generated and the 
job step is terminated unless the 
OPTERR=INCLUDE parameter was specified. 


The abbreviated name for the origin of 
the error is: 


IBC - IHCFCOMH routine (performs 
interruption, and error procedures). 


FIOCS ~- IHCFIOSH routine (performs I/O 
operations for FORTRAN load module 
execution). 


NAMEL - IHCNAMEL routine (performs 
namelist processing). 


DIOCS - IHCDIOSE routine (performs 
direct access I/0 operations for FORTRAN 
load module execution). 


IBERR - IHCIBERH routine (performs the 
processing of errors detected during 
execution of the load modules.) 


LIB ~ SYS1.FORTLIB. In the explanation 
of the messages, the module name is 
given followed by the entry point 
name(s) enclosed in parentheses. 


FCVTH - IHCFCVTH routine (performs 
conversions). 


Note: Message IHC210I is a program 
interrupt message. For a description, see 
Figure 100 and the section "Program 
Interrupt Messages." as 





IBCOM - PROGRAM INTERRUPT-OVERFLOW 
OLD PSW IS xXxxxxxxCxxxxxxxx 
REGISTER CONTAINED X 


IHC2071 


This message is produced only when 
the extended error message 
facility is specified. 


Supplemental Data: The floating- 
point number before alteration. 


Standard Corrective Action: 
Continue execution at point of 
interrupt with result register set 
to the largest possible 
floating-point number that can be 
represented in short precision 
(16634(1-16-6)) or in long 
precision (1663*(1-16-12%)). 


Programmer Response: Probable 


user error. Make sure that a 
variable or variable expression 
does not exceed the allowable 


Appendix D: System Diagnostics 184.17 


ITHC208I 


184.18 


Magnitude. Verify that all IHC2091 
variables have been initialized 

correctly in previous source 

statements, and have not been 

inadvertently modified in 

intermediate source. If the 

problem recurs, do the following 

before calling IBM for programming 

support. 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and the 
necessary DD statement is 
included. 


e Have source and associated 
listing available. 


IBCOM -~- PROGRAM 
INTERRUPT-UNDERFLOW UNDERFLOW OLD 
PswW IS xxxxxxxDxxxxxxxx REGISTER 
CONTAINED X 


This message is produced only when 
the extended error message 
facility is specified. 


Supplemental Data: The floating- 
point number before alteration. 


Standard Corrective Action: 
Continue execution at point of 
interrupt with result register set 
to a true zero of correct 
precision. 


THC2111 


Programmer Response: Probable 
user error. Make sure that a 


variable or variable expression is 


not smaller than the allowable 
magnitude. Verify that all 
variables have been initialized 
correctly in previous source 
statements and have not been 
inadvertently modified in 
intermediate source. If the 
problem recurs, do the following 
before calling IBM for programming 
support. 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


IBCOM - PROGRAM INTERRUPT-DIVIDE 
CHECK OLD PSW IS 
mice | ani 

F 


This message is produced only when 
the extended error message 
facility is specified. 


Supplemental Data: None. 

Standard Corrective Action: Leave 
register unmodified. 

Programmer Response: Probable 


user error. Either correct the 
source where division by zero is 
occurring, or modify previous 
source statements to test for the 
possibilities or bypass the 
illegal division. If the problem 
recurs, do the following before 
calling IBM for programming 
support. 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
Of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


Explanation: IBC -- An invalid 
character has been detected ina 
FORMAT statement. 


If the extended error message 
facility is specified, the 
following information is provided: 


IBCOM ~ ILLEGAL COMPILED FORMAT 
CHARACTER SPECIFIED 

or 

IBCOM - ILLEGAL VARIABLE FORMAT 


CHARACTER SPECIFIED X 


Supplemental Data: Character in 


error. 


Standard Corrective Action: 
Format field treated as an end of 
format. 


Programmer Response: Probable 
user error. Make sure that all 


format specifications read in at 
object time are valid. If the 
problem recurs, do the following 
before calling IBM for programming 
support: | 


IHC2121 


IHC2131 


e Make sure that MAP and. LIST have 
been specified as parameters on 
the EXEC statement. 


e Have source and associated 
listing available. 


Explanation: IBC -- An attempt 
has been made to read or write a 
record, under FORMAT control, that 
exceeds the buffer length. 


If the extended error message 
facility is specified, the 
following information is provided: 
IBCOM ~- FORMATTED I/0, END OF 
RECORD ON UNIT X 


Supplemental Data: Unit number. 


Standard Corrective Action: For a 
read, ignore remainder of I/0 
list; for a write, start new 


record with no control character. 


Programmer Response: Probable 
user error. If the error occurs 


on input, verify that a FORMAT 
statement does not define a 
FORTRAN record longer than the 
record referred to in the data 
set. If reading in data, either 
keep a counter to avoid exceeding 
end of record or file, or insert 
an END= parameter or on the READ 
statement for appropriate transfer 
of control on end of data set. No 
record to be punched should be 
specified as longer than 80 
characters. For printed output 
make sure that no specification is 
longer than the printer's line 
length. Check all DD statements. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


THC 2141 


@ Make sure that MSGLEVEL=(1, 1) 
was specified on the JOB 
statement. 


e Have source and associated 
listing available. 


e Make sure that LIST has been 
specified as a parameter on the 
EXEC statement. 


Explanation: IBC -- The input 
list in an I/O statement without a 
FORMAT specification is larger 
than the logical record. 
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If the extended error message 
facility is specified, the 
following information is provided: 


IBCOM —- UNFORMATTED READ, 
RECORD ON UNIT X 


END OF 


Supplemental Data: Unit number. 
Standard Corrective Action: 
Ignore remainder of I/O list. 


Programmer Response: Probable 
user error. Either keep a counter 


to avoid exceeding end of record 
or file, or insert an END= 
parameter on the READ statement 
for appropriate transfer of 
control on end of data set. Check 
all DD statements. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MSGLEVEI=(1,1) 
was specified on the JOB 
statement. 


e Have source and associated 
listing available. 


e Make sure that LIST has been 
specified as a parameter on the 
EXEC statement. 


Explanation: FIOCS -- For 
unformatted records read or 
written in sequentially organized 


data sets, the record format 


(RECFM) specification must include 
the characters VS (variable 
spanned); any of the optional 
characters (B, A, M, or T) may be 
specified with the characters VS. 
This message appears if the 
programmer has coded RECFM=V, 
RECFM=U, or RECFM=F. 


If the extended error message 
facility is specified, the 
following information is provided: 


FIOCS - UNFORMATTED I/O, RECORD 
FORMAT SPECIFIED AS F OR U ON UNIT 
x 

Supplemental Data: Unit number. 
Standard Corrective Action: 
read, ignore I/O request; for 
write, change record form to V. 


For 


Programmer Response: Probable 
user error. Correct the RECFM 


subparameter. Change a V 
(variable) or U (undefined) or F 
(fixed) specification to VS. Or, 
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_ Explanation: 
sense light number was detected in 


On a WRITE only, change the record 


format to Ve. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


© Have source and associated 


listing and the associated job 
stream available. 


e Make sure that MSGLEVEL=(1, 1) 
was specified on the JOB 
statement. 


CONVERT ~- ILLEGAL DECIMAL 
CHARACTER X 


Explanation: An invalid character 
exists for the decimal input 
corresponding to an I, E, F, or D 
format code. 


Supplemental Data: Display the 
record in which character 
appeared. 

Standard Corrective Action: Zero 


replaces the character» IHC2171 
encountered. 
Note: If the standard or 


corrective user action results in 
a null format, no output will 
result. -If the FORMAT statement 
is terminated in such a way that 
no conversion type is called for, 
an alpha- 

numeric literal may be repeated 
for each list item. 


Programmer Response: Probable 
user error. If an IHC214I message 


_ has occurred previously, correct 


the source causing the error. 
Otherwise, make sure that all 
decimal input is valid. Correct 
any FORMAT statements specifying 
decimal input where character 
should be indicated. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Have source and associated 
listing available. 


SLITE-SLITET X IS AN ILLEGAL VALUE 


LIB -- An invalid 


the argument list in a call to the 
SLITE or SLITET subroutine. 


Supplemental Data: The sense 
light value supplied. 
Standard Corrective Action: For 
SLITE, no action; for SLITET, 
return OFF indication, i.e., J=2. 


Programmer Response: Probable 
user error. If CALL SLITE(i) is 


specified make sure that i is an 
integer expression with a value of 
0-4, inclusive. If CALL 
SLITET(i, j) is specified, make 
sure that i is an integer 
expression with a value of 0-4, 
inclusive, and j is an integer 
variable. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Have source and associated 
listing available. 


Explanation: IBC -- An end of 
data set was sensed during a READ 
operation; that is, a program 
attempted to read beyond the data. 


If the extended error message 


facility is specified, the 
following information is provided: 


FIOCS - END OF DATA SET ON UNIT X 
Supplemental Data: Unit number. 
Standard Corrective Action: 


next file, i.e., increment 
sequence number by 1. . 


Read 


Programmer Response: Probable 
user error. Make sure that a 


FORMAT statement does not define a 
FORTRAN record longer than the 
record referred to in the data 
set. Either keep a counter to 
avoid exceeding end of record of 
file, or insert an END= parameter 
on the READ statement for 
appropriate transfer of control on 
end of data set. Check all DD 
statements. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MSGLEVEL=(1,1) 
was specified on the JOB 
statement. 
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Supplemental Data: 


e Have source and associated 
listing available. 


e Make sure that LIST has been 
specified as a parameter on the 
EXEC statement. 


I/O ERROR xXxXXeeoXXX 


Explanation: FIOCS or DIOCS -- 
One of the following occurred: 


e A permanent input/output error 
has been encountered. 


e For sequential I/O, the length 
of a physical record is 
inconsistent with the default 
block size or the blocksize 
specified on the DD card. 


e An attempt has been made to read 
or write with magnetic tape a 
record that is fewer than 18 
bytes long. 

XXXKeeexXXX is the character string IHC2191 

formatted by the SYNADAF macro 

instruction. For an 

interpretation of this 

information, see the publication 


IBM System/360 Operating System: 
Supervisor and Data Management 
Macro Instructions, Order 

No. GC28-6647. After the 
traceback is completed, control is 
returned to the call routine 
statement designated in the ERR 
parameter of a FORTRAN READ 
statement if that parameter was 
specified. (See "Use of ERR 
Parameter in READ Statement" 
additional information.) 


for 


Note: If a permanent input/output 
error has been detected while 
writing in the object error unit 
data set, the error message is 
written in the SYSOUT data set and 
execution of the job is 
terminated. 





If the extended error message 
facility is specified, the 
following information is provided: 


FIOCS ~ I/O ERROR (text provided 
by data management) 

Unit number. 
Standard Corrective Action: 
Continue execution and ignore I/0 


request. 


Note: ERR= parameter is honored. 
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Programmer Response: Probable 
user error. Make sure that, for 


sequential I/0, the length of the 
physical record is consistent with 
the default or specified 
blocksize. Check all DD 
statements. Make sure that no 
attempt has been made to read or 
write with magnetic tape from a 
record that is fewer than 18 bytes 
in length. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Make sure that MSGLEVEL=(1,1) 
was specified on the JOB 
statement. 


e Have source and associated 
listing available. 


e Make sure that LIST has been 
specified as a parameter on the 
EXEC statement. 


Explanation: FIOCS -- Either a 
data set is referred to in the 
load moduie but no DD statement is 
supplied for it, or a DD statement 
has an erroneous ddname. 


If the extended error message 
facility is specified, the 
following information is provided: 


FIOCS - MISSING DD CARD FOR 
(DDname) 

or 

DIOCS ~- MISSING DD CARD FOR UNIT X 


Supplemental Data: Unit number. 
Standard Corrective Action: 
Continue execution and ignore I/0 
request. 


Programmer Response: Probable 
user error. Either provide the 


missing DD statement, or correct 
any erroneous ddname. Example: 
If Unit 6 is the installation data 
set reference number for the 
printer and an attempt is made to 
write on Unit 3, then the 
following DD statement should be 
included: //GO.FTO3F002 DD 
SYSOUT=A. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Make sure that MSGLEVEL=(1,1) 
was specified on the JOB 
statement. 


e Have source and associated 
listing available. 
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Explanation: 


Programmer Response: 


e Make sure that LIST has been 
specified as a parameter on the 
. EXEC statement. 


e Have Stage I SYSGEN output 
available. 
THC 2221 


FIOCS -- A data set 
reference number exceeds the limit 
specified for data set reference 
numbers when this operating system 
was generated. 


If the extended error message 
facility is specified, the 
following information is provided: 


FIOCS - UNIT NUMBER OUT OF RANGE. 
UNIT=X 
or 


DIOCS - UNIT NUMBER OUT OF RANGE. 


UNIT=X 


Supplemental Data: Unit number. 


Standard Corrective Action: 


Continue execution and ignore I/0 
request. 


Programmer Response: Probable 
user errore Correct the invalid 


data set reference number. If the 
problem recurs, do the following 


- before calling IBM for programming 


support: 
IHC2231 
e Make sure that MSGLEVEL=(1, 1) 
- was specified on the JOB 
statement. : . 


e Have source and associated 
listing available. 


e Have Stage I SYSGEN output 
available. 


_NAMEL-NAME LARGER THAN EIGHT 
_ CHARACTERS. 


NAME=X 


Explanation: NAMEL -- An input 
variable name exceeds eight 
characters. 


Supplemental Data: Name specified 
(first eight characters). 


Standard Corrective Action: 


Ignore remainder of namelist 
request. 


Correct the 
invalid NAMELIST input variable, 
or provide any missing delimiters. 
If the problem recurs, do the 


.. BEFORE EQUAL 


Explanation: 


following before calling IBM for 


programming support: 


e Have source and associated 
listing available. 


NAMEL-NAME NOT IN NAMELIST 
DICTIONARY. NAME=X 


Explanation: NAMEL -- An input 
variable name is not in the 
NAMELIST dictionary, or an array 
is specified with an insufficient 
amount of data. 


Supplemental Data: Name 


specified. 


Standard Corrective Action: 
Ignore remainder of namelist 
request. 


Programmer Response: Probable 


user error. Make sure that a 
correct NAMELIST statement is 
included in the source module for 
all variable and/or array names 
read in using NAMELIST. If the 
problem recurs, do the following 
before calling IBM for programming 


support: 


_e Make sure that MAP and LIST have 


. been specified as parameters on 
the. EXEC statement. 


* Have source and associated 
listing available. 


NAMEL-END OF RECORD 
SIGN. 


ENCOUNTERED 
- NAME=X 


~~ Either an 
or a subscript 


NAMEL 
input variable name 
has no delimiter. 


Supplemental Data: Name of item. 


Standard Corrective Action: 
Ignore remainder of. the namelist 
request. 


Programmer ‘Response: Probable 
user. error. Make sure that all 


NAMELIST input data is correctly 
specified and all delimiters are 
correctly positioned. Check all 
delimiters. Make sure that 
sequence numbers are not present 
in columns 73-80. If the problem 
recurs, do the following before 
calling IBM for programming 
support:. 


® Have source and associated 
listing available. . 


THC2241 
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-DIMENSION statements, 


NAMEL-SUBSCRIPT FOR 
NON~ DIMENSIONED VARIABLE OR 
SUBSCRIPT OUT OF RANGE. NAME=X 


Explanation: NAMEL -~ A subscript 
is encountered after an 
undimensioned input name, 
subscript is too big. 


or the 


Supplemental Data: Name of item. 
Standard Corrective Action: 
Ignore remainder of the namelist 
request. 


Probable Response: Probable user 
error. Insert any missing 

or correct 
the invalid array reference. If 


the problem recurs, do the 


following before calling IBM for 
programming support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
'the EXEC statement. 


IHC2311 


® Have source and associated 
listing available. 


CONVERT-ILLEGAL HEXADECIMAL 
CHARACTER X 


Explanation: FCVTH -- An invalid 
character is encountered on input 
under Z format code. 


Supplemental Data: Display the 
record in which the character 


appeared. 

Standard Corrective Action: Zero 
replaces the encountered 
character. 

Programmer Response: Probable 


user error. Either correct the 
invalid character, or correct or 
delete the Z format code. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Have source and associated 
listing available. 


SOURCE ERROR AT ISN xxxx - 
EXECUTION FAILED [AT SUBROUTINE - 


oo name] 


Explanation: IBERR -- During load 
module execution, a source 
statement error is encountered. 
The internal statement number for 
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the source statement is xxxx; the 
routine that contains the 


statement is specified by "name." 


None. 


upplemental Data: 


Standard Corrective Action: 
Terminate execution. 


Programmer Response: Make sure 
that all source module code is 


correct. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Have source and associated 
listing available. 


Explanation: DIOcS -- 
Direct-access input/output 


statements are used for a 
sequential data set, or 
input/output statements for a 
sequential data set are used fora 
direct access data set. 


If the extended error message 
facility is specified, the 
following information is provided: 


IBCOM ~- DIRECT ACCESS STATEMENT 
USED WITHOUT DEFINE FILE ON UNIT X 
or 

DIOCS - DIRECT ACCESS STATEMENT 


USED FOR SEQUENT TAL DATA SET X 


or 
FIOCS ~ SEQUENTIAL I/O STATEMENTS 
USED FOR DIRECT ACCESS DATA SET X 


Supplemental Data: Unit number. 
Standard Corrective Action: 
Ignore I/O request. = 


Programmer Response: Probable 
user error. Either include the 


necessary DEFINE FILE statement 
for direct access or delete the 
DEFINE FILE for a sequential data 
set. Make sure that all DD 
statements are correct. Verify 
that all data sets are referenced 
with valid FORTRAN statements for 
the data set type. If the problem 
recurs, do the following before 
calling IBM for programming 
SanpoLts 


° Make sure that MSGLEVEL=(1, 1) 
was specified on the. ‘JOB 
statement. 
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e Have source and associated 
listing available. 


Explanation: DIOCS -- Relative 
position of a record is not a 
positive integer, or the relative 
position exceeds the number of 
records in the data set. 


If the extended error message 
facility is specified, the 
following information is provided: 


IHC2341I 


DIOCS - RECORD NUMBER X OUT OF 
RANGE ON UNIT X 


Supplemental Data: Unit number 


and record number. 


Standard Corrective Action: 
Ignore I/O request. 


Programmer Response: Probable 
user error. Make sure that the 


relative position on the data set 


has been specified correctly. 


Check all DD statements. If tne 
problem recurs, do the following 
before calling IBM for programming 
support : 


e Make sure that MSGLEVEL=(1,1) 
was specified on the JOB 
statement. 


e® Have source and associated 
listing available. 


Explanation: DIOCS -- The record 
length specified in the DEFINE 
FILE statement exceeds the 


physical Limitation of the volume 


asSigne’ to the data set in the DD 
statement. 


If the extended error message 
facility is specified, the 
following information is provided: 
IHC2351 
DIOCS - RECORD LENGTH. GREATER THAN 
32K-1 SPECIFIED FOR UNIT X 


Supplemental Data: Unit number 


specified. 

Standard Corrective Action: Set 
record length to 32K. 

Programmer Response: Probable 


user error. Make sure that 
parameters of the DD statement 
conform to specifications in the 
DEFINE FILE statement; the record 
length in both: must be equivalent 
and within the physical 
limitations of the assigned 


volume. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Make sure that MSGLEVEL=(1,1) 
was specified on the JOB 
statement. ; 


® Have source and associated 
listing available. 


Explanation: DIOCS -- The data 
set assigned to print execution 
error messages cannot be a direct 
access data set. 


If the extended error message 
facility is specified, the 
following information is provided: 


DIOCS - ATTEMPT TO DEFINE THE 
OBJECT ERROR UNIT AS DIRECT ACCESS 
DATA SET. UNIT=X 


Supplemental Data: Unit number. 
Standard Corrective Action: 
Ignore define file entry. 


Programmer Response: Probable 
user error. Make sure that the 


object error unit specified is not 
direct access. See the 
publication IBM System/360 


Operating System: System 
Generation, Order No. GC28-6554, 


for information on assigning the 
data set reference number. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MSGLEVEL=(1,1) 
was specified on the JOB 
statement. 


e Have source and associated 
listing available. 


Explanation: DIOCS -- A data set 
reference number assigned to a 
direct access data set is used for 
a sequential data set. 


If the extended error message 
facility is specified, the 
following information is provided: 


DIOCS - DEFINE A DATA SET WHICH 
HAS BEEN USED SEQUENTIALLY AS A 
DIRECT ACCESS DATA SET. UNIT=X 


Supplemental Data: Unit number. 


Standard Corrective Action: 
Ignore define file entry. 


. Programmer Response: 


Probable 
user error. Make sure that use of 
and/or reference to sequential 
data sets does not conflict with 
FORTRAN defined direct access data 
sets. Verify that device classes 
assigned by the installation do 
not conflict with the 
specification on the UNIT 
parameter of the DD statement. 


Make sure that the DEFINE FILE 


IHC2361 


LABEL DISP, 


Statement defines a direct access 
data set. Check all DD 
statements. If the problem 
recurs, do the following before 
calling IBM for programming 
support: IHC240I 
e Make sure that MSGLEVEL=(1, 1) 

was specified on the JOB 

statement. 


e Have source and associated 
listing available. 


Explanation: DIOCS -- A READ is 
executed for a direct access data 
set that has not been created. 


If the extended error message 
facility is specified, the 
following information is provided: 


DIOCS - READ REQUEST FOR AN 
UNCREATED DATA SET ON UNIT X 


Supplemental Data: 


Standard Corrective _Action: 
Ignore I/O request. 


Unit number. 


Programmer Response: Probable 
user error. Make sure that either 
a data set utility program has 
been used, or appropriate 
parameters have been specified on 
the associated DD statement. 
Verify that, if a DD statement is 
used, DSNAME, UNIT, VOLUME, SPACE, 
SYSOUT, and DCB are 
specified correctly or omitted 
where appropriate. If the problem 
recurs, do the following before 
calling IBM for programming 
support: . 


e Make sure that MSGLEVEL=(1,1) 
was specified on the JOB 
statement. 

. THC2411 


© Have source and associated 


listing available. 


IHC2371 


Explanation: DIOCS -- Length of a 
record did not correspond to 
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length of record specified in 
DEFINE FILE statement. 


If the extended error message 
facility is specified, the 
following information is provided: 


DIOCS - INCORRECT RECORD LENGTH 
SPECIFIED FOR UNIT X | 


Supplemental data: Unit for which 


error occurred. 


Standard Corrective Action: 
Ignore the I/O request. 


STAE--SYSTEM ABEND CODE Is XXXX. 
FORTRAN CODE IS Ke 


Explanation: The XXXxX field 
contains the abnormal termination 
completion code. The X field 
contains one character, either A, 
The meanings Of these 
codes are: 


A -- Input/output has been halted 


and cannot be restored. 


B -- Input/output has been halted. 
The system will attempt to 
restart input/output and then 
close data sets. 

C -- No active input/output at 


ABEND time. The system will 
close data sets. 


Standard Corrective Action: 


None. 
Programmer Response: Probable 


user error. Make sure that 
parameters on the DD statement 


conform to specifications in the 


DEFINE FILE statement. Verify 
that record length, buffer length, 
and/or block length as indicated 
on the DD statement do not 
conflict with specifications in 
the DEFINE FILE statement. If the 
problem recurs, do the following’ 
before calling IBM for programming 
support: 

e Make sure that MSGLEVEL=(1,1) 


was specified on the JOB 
statement. 


e Have source and associated 
listing available. 


INTEGER 


FIXPI INTEGER BASE=0, 
EXPONENT=X, LE 07 
Explanation: LIB -- For an 


exponentiation operation (I*#J) in 
the subprogram ITHCFIXPI (FIXPI#) 
where I and J represent integer 


System Diagnostics 184.25 


IHC2421 


184. 26 


variables or integer constants, I 
is equal to zero and J is less 
than or equal to zero. 


Supplemental Data: Exponent 


specified. 


Standard Corrective Action: 
Result=0. 


Programmer Response: Probable 
user error. Make sure that 


integer variables and/or integer 
constants for an exponentiation 
operation are within the allowable 
range. If the base and exponent 
may or will fall outside that 
range during program execution, 
then either modify the operand(s), 
or insert source code to test for 
the situation and make the 
compensation appropriate to the 
program unit. Bypass the 
exponentiation operation if 


necessary. Example: Assume I,J,K 
previously defined integer 
variables. 


IF(I.EQ.0.AND.J.LE.0) GO TO 11 
K = [**7 
11 CONTINUE 


If the problem recurs, do the 
following before calling IBM for 
programming support: THC2431 
* Make sure that MAP and LIST have 

been specified as parameters on 

the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 
listing available. 


FRXPI REAL*4 BASE=0.0, INTEGER 
EXPONENT=X, LE 0 
Explanation: LIB -- For an 


exponentiation operation (R**#J) in 
the subprogram IHCFRXPI(FRXPI#), 
where R represents a real*4 
variable or real*4 constant, and J 
represents an integer variable or 
integer constant, R is equal to 
zero and J is less than or equal 
to zero. 


Supplemental Data: Exponent 


specified. 


Standard Corrective Action: 
Result=0. 





_ Supplemental Data: 


user. error. 


Programmer Response: Probable 
user error. Make sure that both 


the real variable or constant base 
and the integer variable or 
constant exponent for an 
exponentiation operation are 
within the allowable range. If 
the base and exponent may or will 
fall outside that range during 
program execution, then either 
modify the operand(s), or insert 
source code to test for the 
situation and make the 
compensation appropriate to the 
program unit. Bypass the 
exponentiation operation if 
necessary. (See similar example 
for IHC241I.) If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


@ Make sure that the XREF option 


is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 
listing available. 


FDXPI REAL*8 BASE=0.0, INTEGER 
EXPONENT=X, LE 0 


Explanation: LIB -- For an 
exponentiation operation (D**#J) in 
the subprogram IHCFDXPI(FDXPI#), 
where D represents a real*8 
variable or real*8 constant and J 
represents an integer variable or 


integer constant, D is equal to 


zero and J is less than or equal 
to zero. 


Exponent 
specified. 


Standard. Corrective Action: 


_Result=0. 


Programmer Response: Probable 
Make sure that both 


the real variable or constant base 
and the integer variable or 


constant exponent for an 


exponentiation operation are 
within the allowable range. If 
the base and exponent may or will 
fall outside that range during 
execution, then either modify the 
operand(s), or insert source code 
to test for the situation and make 
the compensation appropriate to 
the program unit. Bypass the 





THC244T 


range. 


exponentiation operation if THC2451 
necessary. (See similar example 

for IHC2411I.) If the problem 

recurs, do the following before 

calling IBM for programming 

support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and the 
necessary DD statement included. 


e Have source and associated 
listing available. 


FRXPR REAL*4 BASE=0.0, 
EXPONENT=X. X, LE 0 


REAL#4, 


Explanation: LIB -- For an 
exponentiation operation (R*¥*S) in 
the subprogram IHCFRXPR(FRXPR#), 
where R and S represent real*4 
variables or real*4 constants, R 
is equal to zero and S is less 
than or equal to zero. 


Supplemental Data: Exponent 


specified. 


Standard Corrective Action: 
Result=0. 


Programmer Response: Probable 
user error. Make sure that both 


the real variable or constant base 
and exponent for an exponentiation 
operation are within the allowable 
If the base and exponent 
may Or will fall outside that 
range during program execution, 
then either modify the operand(s), 
or insert source code to test for 
the situation and make 
compensation appropriate to the 
program unit. Bypass the 
exponentiation operation if 
necessary. (See similar example 
for IHC241I.) If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IHC 2461 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 
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FDXPD REAL*8 BASE=0.0, REAL*8 


EXPONENT=X. X, LE 0 
Explanation: LIB -- For an 


exponentiation operation (D**P) in 
the subprogram IHCFDXPD(FDXPD#), 
where D and P represent real*8 
variables or real*8 constants, D 
is equal to zero and P is less 
than or equal to zero. 


Supplemental Data: Exponent 


specified. 


Standard Corrective Action: 
Result=0. 


Programmer Response: Probable 
user error. Make sure that both 


the real variable or constant base 
and exponent for an exponentiation 
operation are within the allowable 
range. If the base and exponent 
may Or will fall outside that 
range during program execution, 
then either modify the operand(s), 
or insert source code to test for 
the situation and make 
compensation appropriate to the 
program unit. Bypass the 
exponentiation operation if 
necessary. (See similar example 
for IHC2411I.) If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 
listing available. 


FCXPI COMPLEX*8 BASE=0.0+0.0I, 


INTEGER EXPONENT=X, LE 0 
Explanation: LIB -- For an 


exponentiation operation (Z*#J) in 
the subprogram IHCFCXPI(FCXPI#), 
where Z represents a complex*8 
variable or complex*8 constant and 
J represents an integer variable 
or integer constant, Z is equal to 
zero and J is less than or equal 
to zero. 


Supplemental Data: Exponent 


specified. 
Standard Corrective Action: 
Result=0. 
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Programmer Response: Probable 
user error. Make sure that both 


the complex variable or constant 
base and the integer variable or 
constant exponent for an 
exponentiation operation are 
within the allowable range. If 
the base and exponent may or will 
fall outside that range during 
program execution, then either 
modify the operand(s), or insert 
source code to test for the 
situation and make the 
compensation appropriate to the 
program unit. Bypass the 
exponentiation operation if 
necessary. (See similar example 
for IHC241I.) If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


THC2511 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


FCDXI COMPLEX*16 BASE=0. 0+0. OI, 
INTEGER EXPONENT=X, LE 0 


Explanation: LIB -- For an 
exponentiation operation (Z*#J) in 
the subprogram IHCFCDXI(FCDXI#), 
where Z represents a complex*16 
variable or complex*16 constant 
and J represents an integer 
variable or integer constant, Z is 
equal to zero and J is less than 
or equal to zero. 


Supplemental Data: Exponent 


specified. 


Standard Corrective Action: 
Result=0. 


Programmer Response: Probable 
user error. Make sure that both 


the complex variable or constant 
base and the integer variable or 
constant exponent for an 
exponentiation operation are 
within the allowable range. If 
the base and exponent may or will 
fall outside that range during 
program execution, then either 
modify the operand(s), or insert 
source code to test for the 
Situation and make the 
compensation appropriate to the 


program unit. Bypass the 
exponentiation operation if 
necessary. (See similar example 
for IHC241I.) If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


SORT NEGATIVE ARGUMENT=X 


Explanation: LIB ~- In the 
subprogram IHCSSQORT(SQRT), the 
argument is less than 0. 


Supplemental Data: 


Argument 
specified. 


Standard Corrective Action: 


Result=|X]+/2. 


Programmer Response: Probable 
user error. Make sure that the 


argument is within the allowable 
range. Either modify the 
argument, or insert source code to 
test for a negative argument and 
make the necessary compensation. 
Bypass the function reference if 
necessary. Example: Assume ARG 
(REAL#4) is to be the input 
argument to SORT. Then a simple 
test might appear: 


IF (ARG) 10,20, 20 
10 ARG = ABS (ARG) 
20 ANS = SORT (ARG) 


If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 
listing available. 


THC2521 
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EXP ARG=X.X, GT 174.673 
Explanation: LIB -- In the 
subprogram IHCSEXP(EXP), the 
argument is greater than 174.673. 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 


Result=*,. 


Programmer Response: Probable 
user error. Make sure that the 
argument to the exponential 
function is within the allowable 
range. If the argument may or 
will exceed that range during 
program execution, then provide 
code to test for the situation 
and, if necessary, modify the 


argument or bypass the source 


referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


THC 2541 


* Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC spatement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is: 
included. : 


® Have source and associated 
listing available. 


ALOG-ALOG10 ARG=X.X, LE ZERO 
Explanation: LIB -- In the 


subprogram IHCSLOG(ALOG and 
ALOG10), the argument is less than 
or equal to zero. Because this 
subprogram is called by an 
exponential subprogram, this 
message also indicates that an 
attempt has been made to raise a 
negative base to a real power. 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: If 
X=0, result=-*; if X<0, 
result=log|X| or log,,|X|- 


Programmer Response: Probable 
user error. Make sure that the 


argument to the logarithmic 
function is within the allowable 
range. If the argument may or 
will be outside that range during 
program execution, then provide 
code to test for the situation 
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and, if necessary, modify the 
argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
specified in the PARM field of 
the EXEC statement and that the 
necessary DD statement is 
included. 


e Have source and associated 
listing available. 


SIN-COS/ARG/=/X. X (HEX=X) 7, GE 
PI*2**18 


Explanation: LIB -- In the 
subprogram IHCSSCN(SIN and COS), 
the absolute value of an argument 
is greater than or equal to 21%enx, 
(21280 % =, 82354966406249996D+06) 


Supplemental Data: 
specified. 


Argument 


Standard Corrective Action: 
Result= Vv 2/2. 


Programmer Response: Probable 


user error. Make sure that the 
argument (in radians where 1 
radian ~ 57.2957795131°) to the 
trigonometric sine or cosine 
function is within the allowable 
range. If the argument may or 
will exceed that range during 
program execution, then provide 
code to test for the situation 
and, if necessary, modify the 
argument or bypass the source 
referencing the function 
subprogram If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 


listing available. 
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ATAN2 ARGUMENTS=0.0 


Explanation: LIB -- In the 
subprogram IHCSATN2, when entry 
name ATAN2 is used, both arguments 
are equal to zero. 


Supplemental Data: Arguments 


specified. 


Standard Corrective Action: 
Result=0. 


Programmer Response: Probable 
user error. Make sure that both 


arguments do not become zero 
during program execution, or are 
not inadvertently initialized or 
modified to zero. Provide code to 
test for the situation and, if 
necessary, modify the arguments or 
bypass the source referencing the 
function subprogram If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


IHC2571 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


SINH-COSH/ARG/=/X.X/, GE 175.366 
Explanation: LIB -- In the 


subprogram IHCSSCNH(SINH or COSH), 
the argument is greater than or 


equal to 174.673. 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 
Result=*, 


Programmer Response: Probable 
user error. Make sure that the 


argument to the hyperbolic sine or 
cosine function is within the 
allowable range. If the argument 
may Or will exceed that range 
during program execution, then 
provide code to test for the 
Situation and, if necessary, 
modify the argument or bypass the 
source referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IHC 2581 


“user errore 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


ASIN-~ARCOS/ARG/=/X. X/ GT 1 


Explanation: LIB -- In the 
subprogram IHCSASCN (ARCSIN or 


ARCOS), the absolute value of the 
argument is greater than 1. 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 
Result=0. 


Programmer Response: Probable 
Make sure that the 


argument to the arcsine or 
arccosing function is between -1 
and +1, inclusive. If the 
argument may Or will fall outside 
that range during program 
execution, then provide code to 
test for the situation and, if 
necessary, modify the argument or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


TAN-COTAN/ARG/=/X. X(HEX=X)/, GE 
PI*2*4#18 


Explanation: LIB -- In the 
subprogram IHCSTNCT (TAN or 


COTAN), the absolute value of the 
argument is greater than or equal 
to 228enx, 

(228 en=, 82354966406249996D+06) 


Supplemental Data: Argument 


specified. 


THC259I1 


Explanation: 
- subprogram IHCSTNCT (TAN or 
COTAN), the argument value is too 
‘close to one of the singularities 


Programmer Res ponse: 


range. 


“recurs, do the following before 


Standard Corrective Action: 
Resuit=1. 


Probable 
user error. Make sure that the 
argument (in radians where 1 
radian 357. 2957795131°) to the 
trigonometric tangent or cotangent 
function is within the allowable 
If the argument may or 
will exceed that range during 
program execution, then provide 
code to test for the situation 
and, if necessary, modify the 
argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


THC261I 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD Shor enent is 
included. 


e Have source and associated 
listing available. 


TAN-COTAN/ARG/=/X. Xx CHEX=X)/, 


- APPROACHES SINGULARITY 


LIB -- In the 


Myo | aad. 
or tn,t2n,... for the cotangent). 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 
~ Result=*. 


Programmer Response: Probable 
user error. Make sure that the 


argument (in radians where 1 
radian ~ 57. 2957795131°) to the 
trigonometric tangent or cotangent 
function is within the allowable 
range. If the argument may or 


will approach the corresponding 


singularities for the function 
during program execution, then 
provide code to test for the 
situation and, if necessary, 
modify the argument or bypass the 
source referencing the function 
subprogram. If the problem 
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argument to DSORT. 
Leet. Hight appear: 


calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


@ Make sure that the XREF option 


is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


DSQRT NEGATIVE ARGUMENT=X. X 
Explanation: LIB -- In the 
subprogram IHCLSOQRT(DSQRT), the 
argument is less than 0. 


Supplemental Data: Argument 


‘specified. 


Standard Corrective Action: 
Result=[X|*/+. 


Programmer Response: Probable 
user error. Make sure that the 


argument is within the allowable 
range. Either modify the 
argument, or insert source code to 
test for a negative argument and 
make the necessary compensation. 


Bypass the function reference if 


necessary. Example: Assume DARG 
(REAL*8) is to be the input 
Then a simple 


IF (DARG) 10, 20,20 
10 DARG = DABS (DARG) 
20 ANS = DSORT (DARG) 


If the problem recurs, do the 
following before calling IBM for 
programming support: | 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


Explanation: LIB -- In the 


-subprogram IHCLEXP(DEXP), the 
argument is greater than 174.673. 
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Explanation: | 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 
Result=*. 


Programmer Response: Probable 
user error. Make sure that the 


argument to the exponential 
function is within the allowable 
range. If the argument may or 
will exceed that range during 
program execution, then provide 
code to test for the situation 
and, if necessary, modify the 
argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for progrsniming 
support: 


IHC 2641 


® Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. - 


e Have source and associated 
Listing available. 


DLOG-DLOG10 ARG=X. X, LE ZERO 


LIB -- In the 
subprogram IHCLLOG(DLOG and 
DLOG10), the argument is less than 
or equal to zero. Because the 
subprogram is called by an 
exponential subprogram, this 
message also indicates that an 
attempt has been made to raise a 
negative base to a real power. 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: If 
X=0, result=-*; if x<0, 
result=log|X| or log,,|X|.- 


Programmer Response: Probable 
user error. Make sure that the 
argument to the logarithmic 
function is within the allowable 
range. If the argument may or 





_will be outside that range during 


program execution, then provide 
code to test for the situation 
and, if necessary, modify the 
argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 


IHC2651I 


Supplemental Data: 


calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


DSIN-DCOS/ARG/=/X. X (HEX=X)/, 
GE PI*¥2*#*50 


Explanation: LIB -- In the 
subprogram IHCLSCN(DSIN and DCOS), 
the absolute value of the argument 
is greater than or equal to 25°, 
(25%e x =. 35371188737802239D+16) 


Argument 
specified. 


Standard Corrective Action: 
Result = /2e 


Programmer Response: Probable 
user error. Make sure that the 


argument (in radians where 1 


radian 57.2957795131°) to the 


trigonometric sine or cosine 
function is within the allowable 
range. If the argument may or 


will exceed that range during 


program execution, then provide 


code to test for the situation 


and, if necessary, modify the 
argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


DATAN2 ARGUMENTS=0. 0 


Explanation: LIB -- In the 
subprogram IHCLATN2, when entry 
name DATAN2 is used, both 
arguments are equal to zero. 


THC2661 


Supplemental Data: 


Arguments 
specified. — 


Standard Corrective Action: 
Result=0. 


Programmer Response: Probable 
user error. Make sure that both 


arguments do not become zero 
during program execution, or are 
not inadvertently initialized or 
modified to zero. Provide code to 
test for the situation and, if 
necessary, modify the arguments or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


IHC 2671 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. | 
DSINH-DCOSH/ARG/=/X. X/, GE 175. 366 

Explanation: LIB -- In the 
subprogram IHCLSCNH (DSINH or 
DCOSH), the absolute value of the 


argument is greater than or equal 
to 175.366. 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 
Result=*. 


Programmer Response: Probable 
user error. Make sure that the 


argument to the hyperbolic sine or 
cosine function is within the 
allowable range. If the argument 
May Or will exceed that range 
during program execution, then 
provide code to test for the 
situation and, if necessary, 
modify the argument or bypass the 


IHC2681I 


- gource referencing the function 


subprogram. If the problem 
recurs, do the following before 


calling IBM for Programming 


SERPOES? 


e Make:sure that MAP and LIST have 
_been specified as parameters on 
the EXEC statement. 
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e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


DARSIN-DARCOS/ARG/=/X.X/, GT 1 
Explanation: LIB -- In the 


subprogram IHCLASCN (DARSIN or 
DARCOS), the absolute value of the 
argument is greater than 1. 


Supplemental Data: 


Argument 
specified. oS 


Standard Corrective Action: 
Result=0. 


Programmer Response: Probable 
user error. ©~Make sure that the 


argument to the arcsine or 


arccosine function is between -1 
and +i, inclusive. If the 
argument may or will fall outside 
that range during program 
execution, then provide code to 
test for the situation and, if 
necessary, modify the argument or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


DTAN-DCOTAN/ARG/=/X. X (HEX=X)/ GE 
PI* (2**50) 


Explanation: LIB -- In the 
subprogram IHCLTNCT (DTAN or 
DCOTAN), the absolute value of the 
argument is greater than or equal 
to 25°%en, (259° x 

eee eee eee 


Sipplémental Data: Argument 


specified. 


Standard corrective Action: 


-Result=1. 
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Sic cae alae ceca 


~user errore 


: Exp lanation: = 


_ Supplemental Data: _ 
sgpecizieds ua 


Programmer Response: Probable 
Make sure that the 
argument (in radians where 1 
radian ~57.2957795131°) to the 
trigonometric tangent or cotangent 
function is within the allowable 
range. If the argument may or 
will exceed that range during 
program execution, then provide 
code to test for the situation 
and, if necessary, modify the 
argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IHC2711 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


DTAN-DCOTAN/ARG/=/X. X (HEX=X) /, 
LIB -~ In. the 
subprogram IHCLTNCT (DTAN or 


DCOTAN), the argument value is too 
close to one of the singularities 


(SRE Ee we for. the wamaenes 
202 
or +n, +20,.. for the cotangent). 


Argument 


‘Standard. Corrective Action: 


Result=* 


Programmer Response: Probable 
user error. Make sure that the 


argument (in radians where 1 
radian ~ 57. 2957795131°) to the 
trigonometric tangent or cotangent 
function is within the allowable 
range. If the argument may or 


_will approach the corresponding 


singularities for the function 


184. 34 


during program execution, then IHC2721 
provide :code to test for the 
situation and, if necessary, 


modify the argument or bypass the 


source referencing the function 


subprogram. If the problem 
recurs, do the following before 
calling IBM for ‘PEOgrAmEng 
support: 


* Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 

_ the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


CEXP REAL ARG=X. X (HEX=X), 


GT 
174.673 
Explanation: LIB -- in the 


subprogram IHCCSEXP (CEXP), the 
value of the real part. of the 
argument is greater than 174.673. 
Supplemental Data: . Argument 
specified. : 


Standard Corrective Action: 
Result=*(COS X + iSIN X) where X 
is the imaginary portion of the 
argument. 


Programmer Response: Probable 


user error. Make sure that the 
argument is within the allowable 
range. If the argument may or 


will exceed that range during | 


program execution, then provide 


code to test for the situation, 


and, if necessary, modify the 
argument or bypass the source 


referencing the function 


subprogram. If. the 

problem recurs, do the following 
before calling IBM for ‘programming 
support: | : 


e Make sure that MAP and LIST have 
been specified as parameters on 
the BAEC” Statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


-® Have source. and associated 


listing available. 


CEXP. IMAG BRG=X(HEX=X) 5 ABS VALUE 


GE PI*2**18 


Explanation: LIB -- Inthe 
subprogram IHCCSEXP (CEXP), the 
absolute value of the imaginary 
part of the argument is greater 
than or equal to 21%e, 

(22% en=.82354966406249996D+06) 


IHC2731 


Explanation: 


real and imaginary 
argument are equal 


modified to zero. 


Supplemental Data: 
specified. 


Argument 


Standard Corrective Action: 
Result=0+0i. 


Programmer Response: . Probable 
user.error. Make sure that the 


argument to the exponential 
function is within the allowable 
range. If the argument may or 
will exceed that. range during 
program execution, then provide 
code to test for the situation, 
and, if necessary, modify the 
argument or bypass. the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IHC 2741 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


® Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source’ and associated 
listing available. 


CLOG ARGUMENT=0.0+0. 01 


_LIB -- In the 
subprogram IHCCSLOG (CLOG), the 
parts of the 
to zero. 
Supplemental Data: Argument 
specified. 


Standard Corrective Action: 
Result=-*#+0i. 


Programmer Response: Probable 
user error. Make sure that both 


the real and imaginary parts of 
the argument do not become zero 
during program execution, or are 
not inadvertently initialized or 
Provide code to 
test for the situation and, if 
necessary, modify the argument or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure chet MAP and LIST have 


been specified as parameters on 
the EXEC statement. 
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Explanation: 


-subprogram. 
recurs, 


THC2751 


Explanation: 


_@ Make sure that the XREF option 


is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e® Have source and associated 
listing available. 


CSIN-CCOS/REAL ARG/=/X.X (HEX=X)/, 
GE PI*2**18 


LIB -~ In the 
subprogram IHCCSSCN (CSIN or 
ccoS), the absolute value of the 
real part of the argument is 
greater than or equal to 218e%, 
(24 8e%=, 82354966406249996D+06) 


Supplemental Data: 
specified. 


Argument 


Standard Corrective Action: 
Result=0+0i. 


Programmer Response: Probable 
user error. . Make sure that the 


real part of the argument 

(in radians where 1 radian & 
57.2957795131°) to the 
trigonometric sine or cosine 
function is within the allowable 
range. If the real part of the 
argument may or will exceed the 
range during program execution, 


‘then provide code to test for the 


situation and, if necessary, 
modify the real part of the 
argument or bypass the source 
referencing the function 

If the problem 

do the following before 
calling IBM for programming 
support: 


--@ Make sure that MAP and LIST have 


been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


-CSIN-CCOS/IMAG ARG/=/X.X (HEX=X)/ 


GT 174. 673 


LIB -- In the 
subproegram IHCCSSCN (CSIN or 
ccoS), the absolute value of the 


imaginary part of the argument is 


greater than 174.673. 
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Supplemental Data: Argument 


specified. 


Standard Corrective Data: If 

imaginary part >0, (X is real 

portion of argument): 

e For sine, result=*/2(SIN X + 
icos X). 

e For cosine, result=*/2(COS X - 
iSIN X). 

If imaginary part <0, (X is real 

portion of argument): 

e For sine, result=*#/2(SIN X - 
icos X). 

e For cosine, result=*/2(COS X + 

iSIN X). 


Programmer Response: Probable 
user error. Make sure that the 


imaginary part of the argument (in 
radians where 1 radian~ 
57.2957797131°) to the 
trigonometric sine or cosine 
function is within the allowable 
range. If the imaginary part of 
the argument may or will exceed 
that range during program 
execution, then provide code to 
test for the situation and, if 
necessary, modify the imaginary 
part of the argument or bypass the 
source referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for. rl ae inca 
support: 


IHC2821 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


-@ Have source and associated 


listing available. 


CDEXP-REAL ARG=X.X(HEX=X) GT 
174.673 


Explanation: LIB -- In the 
subprogram IHCCLEXP (CDEXP), the 
value of the real part of the 
argument is greater than 174.673. 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 
Result=*(CoS X > + iSIN X) where X 


is the imaginary portion of the 
argument. 


Programmer Response: Probable 
user error. Make sure that the 


real part of the argument to the 
exponential function is within the 
allowable range. If the real part 
of the argument may or will exceed 
that range during program 
execution, then provide code to 
test for the situation and, if 
necessary, modify the real part of 
the argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


CDEXP IMAG ARG=X. X (HEX=X) ABS 
VALUE GE PI*2**50 — 


Explanation: LIB -- In the 


‘subprogram IHCCLEXP (CDEXP), the 


absolute value of the imaginary 
part of the argument is greater 
than or equal to 25°e%, 
(25°%ex=, 35371188737802239D+16) 


Supplemental Data: Argument 
specified. ee 
Standard Corrective Action: 
Result=*+0i. 


Programmer Response: Probable 
user error. Make sure that the 


imaginary part of the argument to 
the exponential function is within 
the allowable range. If the 
imaginary part of the argument may 
or will exceed that range during 
program execution, then provide 
code to test for the situation 


and, if necessary, modify the 


imaginary part of the argument or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


IHC2831 


ITHC2841 


feos upplemental Data: - 
specified. — 


* Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 

CDLOG ARGUMENT=0.0+0.0I1 

Explanation: LIB -- In the 


subprogram IHCCLLOG (CDLOG), the 
real and imaginary parts of the 


argument are equal to zero. 
Supplemental Data: Argument 


specified. 


Standard Corrective Action: 


ee eR EA 


Reseieat rere 


Programmer Response: Probable 
user error. Make sure that both 


the real and imaginary parts of 
the argument do not become zero 
during program execution, or are 
not inadvertently initialized or 
modified to zero. Provide code to 
test for the situation and, if 
necessary, modify the argument or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


IHC285I 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


CDSIN-CDCOS/REAL ARG/=/X.X 
(HEX=X)/, GE PI*2#*50 


Explanation: LIB -- In the 
subprogram IHCCLSCN (CDSIN or 
CDCOS), the absolute value of the 
real part of the argument is 
greater than or equal to 25°e%, 
(25°%e n=, 35371188737802239D+16) 


Argument 
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Standard Corrective Action: 
Result=0+0i. 


Programmer Response: Probable 


user error. Make sure that the 
real part of the argument (in 
radians where 1 radian ~ 
57.2957795131°) to the 
trigonometric sine or cosine 
function is within the allowable 
range. If the part of the 
argument may or will exceed the 
range during program execution, 
then provide code to test for the 
situation and, if necessary, 
modify the real part of the 
argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


® Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


CDSIN-CDCOS/IMAG ARG/=/X.X 
(HEX=X)/, GT 174.673 


Explanation: LIB -- In the 
subprogram IHCCLSCN (CDSIN or 
CDCOS), the absolute value of the 


imaginary part of the argument is 


greater than 174.673. 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: If 
imaginary part >0, (X is real 
portion of argument) : 

e For sine, result=*/2(SIN X + 
icoS X). 


e For cosine, result=*/2(COS X - 
iSIN X). ee 


If imaginary part <0, (X is real 


portion of argument) : 
® For sine, result=*/2(SIN X - 
icoS X). 


e For cosine, 


result=*/2(COS X + 
iSIN X). 
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Explanation: 


Programmer Response: Probable 
user error. Make sure that the 
imaginary part of the argument (in 
radians where 1 radian z= 

57. 2957795131°) to the 
trigonometric sine or cosine 
function is within the allowable 
range. If the imaginary part of 
the argument may or will exceed 
that range during program 
execution, then provide code to 
test for the situation and, if 
necessary, modify the imaginary 
part of the argument or bypass the 
source referencing the. function 
subprogram. If the program 
recurs, do the following before 
calling IBM for programming 
support: 


IHC2911 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


*® Have source. and associated 
listing available. 


GAMMA ARG=X. X(HEX=X), LE. 2*#-252 
OR GE 57.5744 


LIB -~ In the 
subprogram IHCSGAMA (GAMMA), the 
value of the argument is outside 
the valid range. (Valid range: 


(27 252€x<57. 5744) 


Supplemental Data Argument 


specified. 


. Standard Corrective Action: 


Result=*,. 


Programmer Response: Probable 
user error. Make sure that the 


argument to the gamma function is 
within the allowable range. If 


IHC300I 


the argument may or will be 


outside that range during program 
execution, then provide code to 
test for the situation and, if 
necessary, modify the argument or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support; 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 

is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


ALGAMA ARG=X. X(HEX=X), LE 0. OR 
GE 4, 2937+#*10*4*73 


Explanation: LIB -- In the 
subprogram IHCSGAMA (ALGAMA), the 
value of the argument is outside 
the valid range. (Valid range: 
0<x<4, 2937x1073) 


Supplemental Data: Argument 
specified. 
Standard Corrective Action: 
Result=*. 


Programmer Response: Probable 
user error. Make sure that the 


argument to the algama function is 
within the allowable range. If 
the argument may or will be 


outside that range during program 


execution, then provide code to 
test for the situation and, if 
necessary, modify the argument or 


bypass the source referencing the 


function subprogram. If the 
problem recurs, do the following 
before calling IBM Zor programming 


support: 


e Make sure that MAP and: LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the necessary DD statement 
included. 


e Have source and associated 
listing available. 


DGAMMA ARG=X.X(HEX=X), LE 2*#-252 
OR GE 57.5744 


Explanation: LIB -- In the 
subprogram IHCLGAMA (DGAMMA), the 
value of the argument is outside 
the valid range. (Valid range: 
27252<x<57. 5744) 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 
Result=*. 


Programmer Response: Probable 


user error. Make sure that the 


IHC3011 


argument to the dgamma function is 


within the allowable range. If 
the argument may or will be 
outside that range during program 
execution, then provide code to 
test for the situation and, if 
necessary, modify the argument or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


DLGAMA ARG=X. X(HEX=X), 
GE 4.2937410*4*73 


LE 0. OR 


Explanation: LIB -- In the 
subprogram IHCLGAMA (DLGAMA), the 
value of the argument is outside 
the valid range. (Valid range: 
0<x<4. 2937x1073) 


Supplemental Data: Argument © 


specified. 


Standard Corrective Action: 
Result=*. 


Programmer Response: Probable 
user error. Make sure that the 
argument to the dlgama function is 
within the allowable range. If 
the argument may or will be 
outside that range during program 
execution, then provide code to 
test for the situation and, if 
necessary, modify the argument or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: = 
e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


Even though message printing may be 
suppressed when the extended error message 
facility is available, a summary of errors 
is printed when the job is completed. Its 
format is shown in Figure 101 . The format 
of a traceback map is shown in Figure 102. 


The headings in the traceback map may be 
described as follows: 


ROUTINE The name of the routine entered, 
which was called by the next 
routine in the list. 

ISN When the compiler's ID option 


supplies an Internal Statement 
Number (ISN), the ISN entry is a 
symbolic reference to the point 
from which the routine was called. 


This is the absolute location 
reference to the point from which 
ROUTINE was called. By using the 
ENTRY POINT location, a relative 
location can be computed. 


REG. 15 This is the address of the entry 


point in ROUTINE. 


This is the result register used 
by function subprograms. 


REG. 0 


REG. 1 This is the address of the 


argument list passed to ROUTINE. 


If the user specifies that an 
installation-supplied routine is to be used 
for corrective action, this line is added 
to the message: 


USER FIXUP TAKEN, EXECUTION CONTINUING 


For a standard corrective action, the 
message addition reads: 
STANDARD FIXUP TAKEN, EXECUTION 
CONTINUING 
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SUMMARY OF ERRORS FOR THIS JOB ERROR NUMBER NUMBER OR ERRORS — 
1 


219 
217 
211 





Figure 101. Summary of Error and Traceback 


1 
57 


TRACEBACK FOLLOWS- ROUTINE 
IBCOM 


MAIN 


ISN 


REG. 14 REG. .15 REG. O REG. 1 
000083B4 000089B8 00000005 000081A6 
00004918 50008020 00000030 O0003FF04 


ENTRY POINT- 50008020 





Figure 102. Example of Traceback Map 


If the extended error message facility 
detects an error condition, an 
informational message is printed and the 
job may be terminated. The following text 
contains a description of such messages. 


THC900IT EXECUTION TERMINATING DUE TO ERROR 
COUNT FOR ERROR NUMBER X 


Explanation: This error has 
occurred frequently enough to 
reach the count specified as the 
number at which execution should 
be terminated. 


System Action: The job is 
terminated. 


Programmer Response: Probable 


user error. Make sure that 
occurrences of the error number 
indicated are eliminated. For 
alternative action, see the 
Extended Error Handling Facility 
section. If the problem recurs, 

do the following before calling IBM 
for programming support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 
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e Make sure that MSGLEVEL= (1,1) 
was specified on the JOB 


statement. 
* Have source and associated 
listing available, 


EXECUTION. TERMINATING. DUE TO 
SECONDARY ENTRY: TO ERROR MONITOR 
FOR ERROR X WHILE PROCESSING ERROR 


Explanation: In a user's 
~ corrective action routine, an 
error has occurred that has called 
the error monitor before it has 
returned from processing a 
diagnosed errore © 
System Action: The job is 
terminated. , BOE SAS 


Note: (“If Traceback follows this 
message, it may be unreliable. 


Programmer Response: Probable 
user error. Make sure that the 


error monitor is not called prior 
to processing the diagnosed error. 
Example: A statement such as 

=A**#B cannot be used in the exit 
routine for error 252, because 
FRXPR# uses EXP, which detects 
error 252. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 





THC902TI 
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e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


ERROR NUMBER X. OUT OF RANGE OF 
ERROR TABLE 


Explanation: A request has been 
made to reference a non-existent 
Option Table entry. 


System Action: The request is 
ignored and execution continues. 
IRETCD is set to zero. 


Programmer Response: Probable 
user error. Make sure that the 


value assigned to an error 
condition is within the range of 


entries in the option table. If IHC9O4T 
the problem recurs, do the 
following before calling IBM for 


programming support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


® Make sure that .the XREF. option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement in 
included. 


e Have source and associated 
listing available. 


e Have information from system 
generation time on the extended 
error handling facility 
available. 


ATTEMPT TO CHANGE UNMODIFIABLE 
TABLE ENTRY, NUMBER=X 


Explanation: The Option Table 
specifies that no changes may be 
made in this entry, but a change 
request has been made by use of 
CALL ERRSET or CALL ERRSTR. 





System Action: The request is 
ignored and execution continues. 


Programmer Response: Probable 
user error. Make sure that no 


attempt has been made to alter 
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dynamically an unmodifiable entry 
in the Option Table. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


e Have information from system 
generation time on the extended 
error handling facility 
available. 


ATTEMPT TO DO I/O DURING FIXUP 
ROUTINE FOR AN I/O TYPE ERROR 


Explanation: When attempting to 
correct an input/output error, the 
user may not issue a READ, WRITE, 
BACKSPACE, ENDFILE, REWIND, PDUMP, 
DEBUG, or ERRTRA. 


System Action: The job is 
terminated. 


Programmer Response: Probable 
user error. Make sure that, if an 
I/O error is detected, the user 
exit routine does not attempt to 
execute any FORTRAN I/0 statement. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


® Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


e Have information from system 
generation time on the extended 
error handling facility 
available. 
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Operator Messages 
Operator messages for STOP and PAUSE are 
generated during load module execution. 
The message for a PAUSE can be one of 
the forms: 
PAUSE n \ 
yy IHCO01A) PAUSE ‘message'‘ ; 
PAUSE 0 ) 


is the identification 
number 


where: yy 


n is the unsigned 1-5 digit 
integer constant 
specified in a PAUSE 
source statement 


‘message’ is the literal constant 
specified in a PAUSE 
source statement 

0 is printed out when a 

PAUSE 
statement is executed 
Explanation: The programmer should give 
instructions that indicate the action to be 


taken by the operator when the PAUSE is 
encountered. 
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operator presses the REQUEST key. 


To resume execution, the 
When the 
PROCEED light comes on, the operator types 


User Response: 


REPLY yy, 'Z' 


where yy is the identification number and 2 
is any letter or number. To resume program 
execution, the operator must press the 
alternate coding key and a numeric 5. 


The message for a STOP statement is of 
the form: 


IHCO02I STOP n 


‘is the unsigned 1-5 digit 
integer constant specified in 
a STOP source statement, 

This value is placed in 
register 15 when the STOP 
statement is executed. 


where: n 


A STOP or STOP 0 message is 
not displayed on the console. 


User Response: None 
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Code Interpretation 
* blank Space one line before printing 
* 0 Space two lines before printing 


Space three lines before printing 
Suppress space before printing 
Skip to first line of a new page 
Skip to channel 2 
Skip to channel 3 
Skip to channel 4 
Skip to channel 5 
Skip to channel 6 
7 
8 
9 


+ * 


BEANWOPCMIHVSWNHRS ! 


Skip to channel 

Skip to channel 

Skip to channel 

Skip to channel 10 
Skip to channel 11 
Skip to channel 12 
Select punch pocket 1 
Select punch pocket 2 


* These carriage control characters are identical to the FORTRAN carriage control 
characters specified in the FORTRAN Iv_ Language publication. 
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APPENDIX F: UNIT TYPES 


The UNIT parameter of the DD statement 
can identify an input or output unit by its 
actual address, its type number, or its 
group name. Type numbers, automatically 
established at system generation, corre- 
spond to units entered into system 
configurations. Type numbers and 
corresponding units are listed here for the 
reader's convenience. The 2305 Drum 
Storage Unit, the 3330 Disk Storage Unit, 
and the 3211 Printer are listed for planning 
purposes only. 


Tape Units 

Unit Type Unit 

2400 2400 series 9-Track Magnetic 
Tape Drive that can be 
allocated to a data set 
written or to be written 
in 800 bpi density 

2400-1 2400 series Magnetic Tape 
Drive with 7-Track | 
Compatibility and without 
Data Conversion 

2400-2 2400 series Magnetic Tape 
Drive with 7-Track 
Compatibility and Data 
Conversion 

2400-3 2400 series 9-Track Magnetic 
Tape Drive that can be 
allocated to a data set 
written or to be written 
in 1600 bpi density 

2400-4 2400 series 9-Track Magnetic 


Tape Drive having an 800 
and 1600 bpi (density) 
capability 
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Direct Access Units 


Unit Type 
2301 
2302 
2303 
2305 
2311 
2314 
2321 


3330 


Unit 
2301 
2302 





Drum Storage Unit 

Disk Storage Drive 

2303 Drum Storage Unit 

2305 Drum Storage Unit 

Any 2311 Disk Storage Drive 

2314 Storage Facility 

Any bin mounted on a 2321 
data cell drive 

3330 Disk Storage Facility 


Unit Record Equipment 


1052 
1403 


1442 
1443 
2501 
2520 
- 2540 


2540-2 


2671 
3211 


Graphic Units 


1052 Printer-Keyboard 

1403 Printer or 1404 Printer 
(continuous form only) 

1442 Card Read Punch 

any 1443 Printer 

2501 Card Reader 

2520 Card Read Punch 

2540 Card Read Punch (read 
feed) 

2540 Card Read Punch (punch 
feed) 

2671 Paper Tape Reader 

3211 Printer 


1053 Model 4 Printer 

2250 Display Unit, Model 1 

2250 Display Unit, Model 3 

2260 Model 1 Display Station 
(Local Attachment) 

2260 Model 2 Display Station 
(Local Attachment) 

2280 Film Recorder 

2282 Film Recorder-Scanner 


The FORTRAN IV (G) Debug Facility 
statements (DEBUG, AT, DISPLAY, TRACE ON 
and TRACE OFF) are described in the FORTRAN 
IV_ Language publication. This section 
describes the output produced when these 
statements are used in a FORTRAN source 
module. 


DEBUG STATEMENT 


The options UNIT, TRACE, SUBTRACE, INIT, 
and SUBCHK may be specified in the DEBUG 
statement. The UNIT option indicates the 
unit on which the DEBUG output is to be 
written; if this option is omitted, DEBUG 
output is written on SYSOUT. 


TRACE 


TRACE output is written only when TRACE 
Zs On aS a result of the TRACE ON 
statement. For each labeled statement that 
is executed, the line 


-DEBUG-TRACE statement-label 


is written. 


SUBT RACE 


SUBTRACE is used to trace program flow 
from one routine to another. For each 
subprogram called, the line 


-DEBUG-SUBTRACE subprogram-name 


is written on entry to the subprogram, and 
the line 


-DEBUG-SUBTRACE *RETURN* 


is written on exit from the subprogram. 


INIT 


The output produced as a result of the 
INIT option is written regardless of any 
TRACE ON or TRACE OFF statements in the 
source module. When the value of an 
unsubscripted variable listed in the INIT 
option 
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changes, the line 
-DEBUG-variable-name = value 


is written, with the value given in the » 
proper format for the variable type. When 
the value of an element of an array listed 
in the INIT option changes, the line 


~DEBUG-array-name(element-number) = value 


is written, with the format of the value 
determined by the type of the array 
element. The single element number 
subscript is used regardless of the number 
of dimensions on the array. 


SUBCHK 


SUBCHK output is not affected by TRACE 
ON and TRACE OFF statements in the source 
module. When a reference to an array 
listed in the SUBCHK option includes 
subscripts such that the reference is 
outside the array, the line 


-DEBUG-SUBCHK array-name(element-—number) 


is printed. The statement including the 
out-of-bounds reference is operated 
nonetheless. 


DISPLAY STATEMENT 


DISPLAY statement output is identical to 
NAMELIST WRITE output. The first line 
written is the name of the NAMELIST created 
by the compiler for the DISPLAY statement, 
preceded by the ampersand character: 


&DBGnn# 


where: 

nn is the 2-digit decimal value 
assigned to the DISPLAY statement; 
this value begins at 01 for the 
first DISPLAY statement in the 
source module and increases by one 
for each subsequent DISPLAY 
statement. 


The NAMELIST name is followed by the 
DISPLAY list, in NAMELIST format. The 
output is terminated with the line 


&END 
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Se ee ee er eR Sa 


Any DEBUG output which is produced 
during an input/output operation is saved 
in storage until the input or output 
operation is complete, when it is written 
out. Saving this information may require 
request for additional storage space from 
the system. If the request cannot be 
satisfied, some of the DEBUG output may be 
lost. If this situation occurs, the 
message | 


~DEBUG~SOME DEBUG OUTPUT MISSING 
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is written after the output which was 
saved. , 


If a subscript appearing in an 
input/output list includes a function 
reference, and the FUNCTION contains a 
DISPLAY statement, the DISPLAY cannot be 
performed. In this case the message 


-DEBUG-DISPLAY DURING I/O SKIPPED 


is written in the DEBUG output. 


APPENDIX H: FORTRAN IV (H) OPTIMIZATION FACILITIES 


This appendix contains information relating 
to the use of the FORTRAN IV (H) compiler 
optimization facilities. 


PROGRAM OPTIMIZATION 


Facilities are available in the FORTRAN 
IV (H) compiler that enable a programmer to 
optimize execution speed and to reduce the 
Size of the object module. However, 
programs that are compiled using the 
IBM-supplied cataloged procedures are not 
optimized; OPT=0 is the default option. A 
programmer must override this default 
option with either OPT=1 or OPT=2 to 
specify the use of the optimization 
facilities. (See "Cataloged Procedures" 
for overriding par- ameters in the EXEC 
statement. ) 


When using OPT=1, the entire program is 
a loop, while individual sections of 
coding, headed and terminated by labeled 
statements, are blocks. The object code is 
improved by: oe 


e Improving local register assignment. 
(Variables that are defined and used in 
a block are retained (if possible) in 
registers during the processing of the 
block. Time is saved because the num- 
ber of load and store instructions are 
reduced. ) 


e Retaining the most active base 
addresses and variables in registers 
across the whole program. (Retention 
in registers saves time because the ~ 
number of load instructions are 
reduced. ) 


e Improving branching by the use of RX 
branch instructions. (An RX branch 
instruction saves a load instruction 
and reduces: the number of required 
address constants.) 


When using OPT=2, the loop structure and 
data flow of the program are analyzed. The 
object code is improved over OPT=1 by: 


e Assigning registers across a loop to 
the most active variables, constants, 
and base addresses within the loop. 


e Moving outside the loop many 
computations which need not be 
calculated within the loop. 
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e Recognizing and replacing redundant 
computations. 


e Replacing (if possible) multiplication 
of induction variables by addition of 
those variables, 


e Deleting (if possible) references to 
some variables. 


e Using (where possible) the BXLE 
instruction for loop termination. 
BXLE instruction is the fastest 
conditional branch; time and space are 
saved.) 


(The 


Programming considerations Using the 
Optimizer 


In general, the specification of OPT=1 
or OPT=2 causes compilation time to 
increase. However, the object code 
produced is more concise and yields shorter 
execution times. 


The object module logic, when optimized, 
is identical to the unoptimized logic, 
except in the following cases: 


1. If the list of statement numbers in an 
Assigned GOTO statement is incomplete, 
errors, which were not present in the 
unoptimized code, may arise in the 
optimized code. 


2. With OPT=2, the computational 
reordering done may produce a 
different execution time behavior than 
unoptimized code. . For example, a test 
of an argument of a FORTRAN library 
function may be executed after the 
call to the function. This is caused 
by the movement of the function call 
to the back target of the loop when 
the function argument is not changed 
within the loop. 


DO 11 # I=1,10 

DO 12 J=1,10 

IF (B(I).LT.0.)GO TO 11 
12 C(J)=SORT(B(I)) 
11 CONTINUE 


The square root computation will occur 
before the less-than-zero test, and 
will result ina message if B(I) is 
negative. A rearrangement of the 
program which could avoid this 
situation can be constructed: 
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3 


4. 


5. 
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However, 


do 11 1,10 
IF (B(I).LT.0.) GO TO 11 
DO 12 #£«®4J=1,10 

12 C(J)=SORT(B(T)) 

11 CONTINUE 


A similar condition may result with 
the statements: 


CALL OVERFL(J) 
CALL DVCHK(J) 


These may produce different results 
when optimized, because computations 
causing overflow, underflow, or 
divide-check conditions could be moved 
out of the loop in which the test 
occurs. 


_If£ a programmer defines a subprogram 


with the same name as a 
FORTRAN-supplied subprogram (e.ge, 
SIN, ATAN, etc.), errors could be 
introduced during optimization. If 
the. subprogram stores into its. 
arguments, refers to COMMON, performs 
I/O, or remembers its own variables 
from one execution to another, the 
name of the subprogram must be 
specified in an EXTERNAL statement to 
allow the program to be. optimized 
without error. 





In the statements 


COMMON xX, ¥1(10), W, Z 
EQUIVALENCE. (Y¥1, ¥2) 
DIMENSION ¥2(12) 


there is an implied equivalence of Y2 


(11) and W and Y2(12) and Z. 


If the optimization feature is not 
used, and 


W=Q cand. A=Y2(1) | (where I-11) 


- then: the value of Q is lggndaned to A. 


if opr=2 is used, and 


=O. cana:> A=Y2(I).. (where I=11) 


_ there is no guarantee that the value 


of Q is assigned to A. 


When a subprogram is called at one 
entry point for initialization of 
reference-by-name arguments, and at 
another entry point for subsequent 
computation, certain argument values 
May not be transmitted. This applies 


to either arguments of. the second call 


or any argument values redefined 
between calls and not exphici thy 
defined in COMMON... 


In the following example the 
incremented value for I may not be 
transmitted to the subprogram due to 
the loop initialization optimization. 


CALL INIT (I) SUBROUTINE INIT 


A/IS/) 


I= 0 ENTRY COMP 
10 CALL COMP 
I=I+i 


GO. TO 10 


6. With OPT=2, variables in named COMMON 
arrays may not be stored on exit from. 
a FORTRAN main program if these . 
variables have not been used in an I/0 
statement in that main program, or if 
there is no subroutine call following 
the definition of these variables. 


Definition of a Loop 


The term ‘loop! is. used to refer to DO 
loops and other configurations. of coding 
that a programmer regards as a loop. 


If a programmer writes a loop which is 
preceded by an IF statement,. a conditional 
GOTO statement, or READ statement with END 
or ERR parameters, the loop. is not... 
identified and efficiency is lost. A. 
CONTINUE statement at the end of the range 
of a DO also obscures a loop (other than a 
DO loop) that follows the CONTINUE without 
intervening initialization. . The insertion 
of. a labeled CONTINUE statement or any . 
other suitable rearrangement: ‘aLiows: he; 
loop to be necogniged. ae 


The movement of computations from: inside 
a loop to the initialization coding is done 
on the assumption that every statement in 
the loop is executed more frequently than 
the initialization coding. Occasionally, 
this assumption fails and computations are 
moved to a position where they are computed 
more Often. One way to prevent such a move 
is to make a subprogram of the coding 
(statements and computations) that is © 
executed less frequently within a loop than 
it would be in the tpt teak zation cosas 


The recognition of Joaps may also be 


obscured. when the programmer knows that. 


some paths through the Bee cannot 
occur; for examples: bene wat 


10 IF (L) GOTO 200 

20 I=1 

30 ASSIGN 40 TO J 

GOTO 100 

40 I=I +1 

50 IF (I.LE.N) GOTO 30 
100 B(I) = FUNCT (I) 
110 GOTO J, (40, 220) 
200 ASSIGN 220 To J 
210 GOTO 100 
220 CONTINUE 


From the programmer's point of view, the 
statements 30 to 50 comprise a loop which 
is initialized by statement 20. The loop 
causes an internal subprogram consisting of 
statements 100 and 110 to be executed. 

From the compiler's point of view, it 
appears possible to execute statements in 
the order 10, 200, 210, 100, 110, 40, 50, 
30. The compiler does not recognize the. 
loop, because it appears possible to enter 
it without passing through the initializa- 
tion coding in statement 20. 


A loop can be obscured by tHe computed 
GOTO, because the compiler always assumes 
that one of the possible branches is to the 
succeeding statement, even though the pro- 
grammer knows that such a branch is impos- 
sible. A loop can also be obscured by a 
call to the EXIT routine, because the com- 
piler assumes there is a path from such a 
statement to the next. 


Movement _of Code Into Initialization of a 
Loop 





Where it is logically possible to do so 
with OPT=2, the optimizer moves computa- 
tions from inside the loop to the outside. 
This movement permits a programmer to do 
more straightforward coding without penalty 
in object code efficiency. 


If an expression is evaluated inside a 
loop and all the variables in the expres- 
sion are unchanged within the loop, the 
computation is generally moved outside the 


Table 26. Constant Expressions 
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| Expression where Cl, C2,... 
are constant in the loop 


r C1 + C2 * C3/SIN (C4) 
| ci + C2 * C3 + BI 

|. Cl. +. Bl + °C2 * C3 

| Bi + C1 + C2 * C3 

| ci + Bl + B2 + C2 * C3 
| C1 * C2/B1i 

L 
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loop into the coding sequence which ini- 
tializes the loop. Even if the constant 
expression is part of a larger expression, 
this constant expression may still be rec- - 
ognized and moved. However, the movement 
depends on how the larger expression is 
written. Table 26 gives examples of ex- 
pressions and the constant parts which are 
recognized and moved. 


Common Expression Elimination 


With OPT=2, if an expression occurs 
twice in such a way that: 

1. any path starting at an entry to the 
program always passes through the 
first occurrence of the expression to 
reach the second occurrence (and any 
subsequent occurrence), and 
2. any evaluation of the second (third, 
fourth, etc.) expression produces a 
result identical to the most recent 
evaluation of the first expression, 
then the value of the first expression 
is saved (generally) and used instead 
of the value of the second (third, 
fourth, etc.) expression. 


In statements such as: 


=B +C +D 
E=C + D 


the common expression C + D is not recog- 
nized, because the first expression is conm- 
puted as (B + C) + D. 


Induction Variable Optimization 


In a loop with OPT=2, an induction vari- 
able is a variable that is only incremented 
by a constant or by a variable whose value 
is constant in the loop. 


When an induction variable is multiplied 
by a constant in the loop, the optimizer 
may replace the multiplication with an 


| ACR 5 a, ec ee nee 
j|Constant expression recognized and moved | 
4---------~--------------+------------------ { 
| Ci + C2 * C3/SIN (C4) | 
| C1 #+°C2 *°C3 : | 
| c2 * C3 | 
| c2 * C3 | 
| CZ. *-Cs | 
| cl * C2 | 
nn a a a i i as ca a ee a i en an ee en as San ce ee in toe en 4 
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addition by introducing a new induction. 
variable into the loop. This new induction 
variable may make it possible to delete all 
references to the original induction vari- 
able. This deletion is likely to occur if 
the original induction variable is used 
only as a subscript within the loop, and 
the value of the subscript is not used on 
exit from the loop. 


Register Allocation 


Some variables are assigned to a regis- 
ter on entry to a loop and retained in the 
register through part or all of the loop to 
avoid loading and storing the variable in 
the loop. Within the loop, the variable is 
modified only in the assigned register, the 
value of the variable in storage is not 
changed. If necessary, the latest value of 
the variable is stored after exit from the 
loop. 


The value in general register 13, which 
points to the start of a register save 
area, remains constant during execution of 
a subprogram. This register is used to 
refer to data, and possibly to branch 
within the program. The value in general 
register 12 remains constant and is used to 
branch within the program, and possibly is 
used to refer to data. 


General registers 14 and 15 are used for 
base addresses and index values on a 
strictly local basis. Floating-point 
register 0 and general register 0 are used 
as locally assigned arithmetic accumula- 
tors. General register 1 is used in con- 
junction with general register 0 for fixed- 
point arithmetic operations, and to point 
to argument lists in subprogram linkages. 


The remaining registers are used for 
accumulators, index values, base addresses, 
and high speed storage (a register 
reference is faster than a main storage 
reference). 


Because general registers 12 and 13 are 
not adequate to provide RX branching 
throughout a large program, general regis- 
ters 11, 10, and 9 may be pre-empted for RX 
branching (only if the program exceeds 8K, 
12K, and 16K bytes, respectively). (RR 
branches preceded by loads are required for 
branching to points beyond the first 16K 
bytes of the program and possibly to the 
last part of a program if it exceeds 8K, 
12K, or 16K bytes by a small amount.) 
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COMMON Blocks 





Because each COMMON block is independ- 
ently relocatable, each requires at least 
one base address to refer to the variables 
in it. A sequence of coding that refers to 
a large number of COMMON blocks is slowed 
down by the need to load base addresses 
into general registers. Thus, if three 
COMMON blocks can be combined into one 
block whose total size is less than 4096 
bytes, one base address can serve to refer 
to all the variables. (Many register loads 
can be avoided.) 


The order in which data is entered into 
a COMMON block may also affect the number 
of base addresses needed. For example, if 
an array of 5000 bytes is placed in a 
COMMON block and followed by 200 bytes of 
variables, two base addresses are needed: 
the beginning address of the first variable 
and the beginning address of the last dif- 
fer by more than 4096 bytes. However, if 
the variables preceded the array, one base 
address would suffice. 


EQUIVALENCE Statements 


Optimization tends to be weakened by the 
occurrence of variables in EQUIVALENCE 
statements. 


When an array appears in an EQUIVALENCE 
statement, a reference to one of its ele- 
ments cannot be eliminated as a common 
expression, nor can the reference be moved 
out of a loop. However, the elimination 
and movement of subscript calculations used 
for making the reference is not affected. 


If a variable is made equivalent only to 
another variable (not in COMMON) of the 
same type and length, optimization is not 
weakened. The net effect is that the com- 
piler accepts the two names as alternate _ 
pointers to the same storage location. . 
Howeve1, if a variable is made equivalent 
to another variable in any other way, all 
references to it are ‘immobilized': the 
references cannot be eliminated, moved, 
confined to registers, or altered in any 
way. 


Multidimensional Arrays 


In general, references to higher dimen- 
sional arrays are slower than references to 
lower dimensional arrays. Thus, a set of 
one-dimensional arrays is more efficient 
than a single two-dimensional array in any 


case where the two-dimensional array can be 
logically treated as a set of one- 
dimensional arrays. 


Constants occurring in subscript expres- 
sions are accounted for at compile time and 
have no effect at execution time. 


Program Structure 


If a large number of variables are to he 
passed among calling and called programs, 
some of the variables should be placed in 
the COMMON area. For example, in the main 
program and subroutine EXAMPL Pale aa aad 


“DIMENSION E(20),1(15) 
READ (10)A,B,C 
CALL EXAMPL(A,B,C,D,E,F, 1) 


END 


SUBROUTINE EXAMPL (X,Y, Z,P,Q,R,J) 
DIMENSION Q(20),J3(15) 


RETURN 
END 


time and storage are wasted by allocating 
storage for variables in both the main pro- 
gram and subprogram and by the subsequent 
instructions required to transfer variables 
from one program to another. 


The two programs should be written using 
a COMMON area, as follows: 


COMMON A,B,C,D,E(20),F,1(15) 
READ(10) A,B,C 
CALL EXAMPL 


END 


SUBROUTINE EXAMPL 
COMMON X,Y, 2Z,P,Q(20),R,J(15) 


RETURN 
END 


Storage is allocated for variables in 
COMMON only once and fewer instructions are 
needed to cross reference the variables 
between programs. 


To reduce compilation time for 
equivalence groups, the entries in the 
EQUIVALENCE statement should be specified 
in descending order according to offset. 
For example, the statement 


EQUIVALENCE (ARR1(10,10),ARR2(5,5),_ 
ARR3(1,1), VAR1) 


compiles faster than the statement 


EQUIVALENCE (VAR1,ARR3 (1,1) ,ARR2(5,5), 
ARR1 (10,10) ) 


To reduce compilation time and save 
internal table space, equivalence groups 
should be combined, if possible. For 
example, the statement 


EQUIVALENCE (ARR1(10,10),ARR2 (5,5), VAR1) 


compiles faster and uses less internal 
table space than the statement 


EQUIVALENCE (ARR1(10,10),VAR1), 
(ARR2 (5,5) , VAR1) 


Logical IF Statements 


A statement such as: 
IF(A. LT. B. OR. C. GT. F(X) «OR.» NOT.L) GOTO 10 
is compiled as though it were written: 


IF (A .LT. B) GO TO 10 
IF (Cc .GT. F(X)) GO TO 10 
IF (.NOT. L) GOTO 10 


Thus, if A .LT. B is found to be true, the 
remainder of the logical expression is not 
evaluated. 


Similarly, a statement such as: 
IF (D.NE. 7.0 .AND. E.GE.G) I=J 
is compiled as: 


IF (D.EQ. 7.0) GOTO 20 
IF (E.LT.G) GOTO 20 
I=J 

20 CONTINUE 


The order in which a programmer writes 
logical expressions in an IF statement 
affects the speed of execution. 


If A is more often true than B, then 
write A .OR. B rather than B .OR. A; and 
write B .AND. A rather than A .AND. B. 


If any of the following occur in a log- 
ical expression: 
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1. a mixture of both .AND. and .OR.) 
operators 
2e a .NOT. operator followed by a paren- 


thesized expression 


the entire logical expression must be eval- 
uated and efficiency is lost. 


Branching 


The statement 
IF(A.GT.B) GOTO 20 
gives equivalent or better code than 
IF(A-B)10,10, 20 
10 CONTINUE 


The Assigned GO TO is the fastest condi- 
tional branch. 
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The computed GO TO should be avoided 
unless four or more statement labels occur 
within the parentheses. 


The statement 
IF (I-2) 20,30, 40 
is significantly faster than 


GOTO (20,30,40), I 


Name _ Assignment 


For its internal use, the compiler 
places names used for variables, arrays, 
and subprograms into a table. This table 
is divided into six strings and is searched 
many times during compilation. Names that 
are one character long are placed in the 
first string; names two characters long are 
placed in the second string; and so on. 

For faster compiling, the names should be 
distributed equally among the six strings. 


APPENDIX 


This appendix discusses FORTRAN program- 
ming factors that are of special concern to 
users of IBM System/360 Models 91 and 195. 


PROGRAM INTERRUPTION EXIT ROUTINE 


The library subroutine that handles 
interruptions has been modified to recog- 
nize precise, imprecise, and multiple 
imprecise interruptions. Multiple impre- 
cise interruptions may require that the 
subroutine set more than one of the indica- 
tors (for divide check, exponent overflow, 
and exponent underflow). 


Modifications are made to the message 
that is issued for the following program 
exceptions: 


e Fixed-point divide 

® Decimal divide 

e Floating-point exponent overflow 

e Floating-point exponent underflow 
® Floating-point divide 

The format of the message issued is 


IHC210I PROGRAM INTERRUPT (x) OLD PSW 
Is y 


where x represents one of the letters P 
(for precise), I (for imprecise), or M (for 
multiple imprecise of different classes), 
and y is the hexadecimal representation of 
the old PSW. 


BOUNDARY ADJUSTMENT ROUTINES (MODEL 91 
ONLY) 


Specification of a system generation 
option, BOUNDRY=ALIGN, will provide boun- 
dary adjustment routines for correction of 
instructions that cause specification 
exceptions. However, the nature of these 
fix-up routines requires the identification 
of the instruction that causes the excep- 
tion. Since specification exceptions on 
the Model 91 generate imprecise interrup- 
tions, boundary adjustments cannot be made. 
Thus, when the FORTRAN library is specified 
for the Model 91, boundary alignment must 
not be requested. Because BOUNDRY=ALIGN is 
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the default option, BOUNDRY=NOALIGN must be 
specified. If BOUNDRY=NOALIGN is not spe- 
cified during system generation for the 
Model 91, an error message will occur. 


Note: If boundary alignment were allowed, 
the related task eventually could be ter- 
minated for the following reason: Boundary 
alignment is made with respect to the 
instruction addressed by the program old 
PSW, but since the related interruption may 
have been imprecise, the old PSW may not 
contain the address of the incorrect 
instruction. 


FLOATING-POINT OPERATIONS 


For the Models 91 and 195, floating- 
point operations are somewhat different 
from what they are on other models. Dis- 
cussed below are two of these differences. 


Exponent Overflow 


A floating-point exponent overflow 
exception results in the maximum floating- 
point number (see the publication IBM 
System/360 Principles of Operation) being 
placed in the result register. The correct 
Sign of the result is appended to the 
result in the register. For operations 
using long precision, all 56 of the frac- 
tion bits in the register are set to one. 
For operations using short precision, the 
low-order 32 bits in the register remain 
unchanged. In addition and subtraction, 
the condition code reflects the sign of the 
result. This exception produces an impre- 
cise interruption. 


Exponent Underflow 


The result of an exponent underflow 
exception is that a true zero is placed in 
the result register. For long-precision 
operations, all 56 of the fraction bits in 
the register are set to zero. For short- 
precision operations, the low-order 32 bits 
in the register remain unchanged. In addi- 
tion and subtraction, the condition code is 
set to zero. This exception produces an 
imprecise interruption if the mask bit (bit 
38) in the PSW is set to one. 
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Note: Whenever an interruption occurs on 
other models of System/360, system routines 
provide the setting of the result register 
when requested. To maintain compatibility, 
these operations are performed in the hard- 
ware of the Models 91 and 195 since the 
imprecise interruption prohibits the pro- 
gramming technique. ‘ 
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* parameter 31 

*,.ddname 65 

*.stepname.ddname 65 
*,.stepname.procstep.ddname 65 


A, device class 
correspondence with ddnames 41 
in DD statement 31 
with intermediate device 64 
in JOB statement 20 
ABEND dump 112 
ABSTR subparameter 99 
Accessing unused space 99 
Account numbers 17 
Accounting information 
in the EXEC statement 26 
in the JOB statement 17 
Accounting routine 17 
ACCT parameter 26 
Address, specifying space beginning at 99 
Affinity, device 98 
ALIAS statement 48 
ALX subparameter 63 
American National Standard Extended 
Carriage Control Characters 187 
AND function 92 “Eee 
Argument list considerations 
Arithmetic IF statement 89 
Arithmetic Statement Functions 90 — 
Array 
initialization 91-92 
notation 932 
Arrays, multidimensional 194-195 
Assembler language SNDPEOgt ams 
argument list 146 
calling sequence 146 
example of 152 
linkage conventions 148,149 
RETURN i simulation 151 
save area 146 
subroutine references 146 
Assigning job priority 20 
Asterisk (*) parameter 31 
ATTACH macro instruction 139 
Automatic call library 46 
Average-record-length subparameter 


150-151 


62,99 


B, device class 
correspondence with ddnames 41 
in DD statement 32 
with intermediate device 64 
BACKSPACE 
restriction with SYSIN 53 
statement 70,93 
Backspace operations 70-73 
BCD compiler option 43 
BCD translation 63 
BDW 70 
Blanks, embedded 89 > 
BLKSIZE subparameter 65-71,93 


INDEX 


Block Descriptor Word (BDW) 70 
Blocked records 
with FORMAT control 68-70 
without FORMAT control 69-70 
BLP subparameter 63 
Boundary adjustment 
in COMMON blocks 88-89 
routines (Model 91) 197 
Branching 89 


Buffers 
length of 66-67 
number of 65-66 


BUFNO subparameter 
DD statement considerations 93 
with sequential data sets 65 
specification of 65. 


CALL ERRMON statement 125-126 > 
CALL ERRSAV statement 124 
CALL ERRSET statement 124 
CALL ERRSTR statement 124 
CALL ERRTRA statement 125 
CALL option for the loader 55 
CALL macro instruction 139 
Carriage control characters 187 
Catalog 13 
Cataloged procedures 
definition of 11-12 
invoking 12 
modifying 12 
names 12 
Cataloged procedures (G) 
compile 74 
compile and linkage edit 74- 75 
compile and load 77,79 
compile, linkage edit, and execute 77 
FORTGC 
control statements 74 
function 12,37 
invoking of 37 
FORTGCL 
control statements 74 
function 12,38 
invoking of 38 
FORTGCLG 
control statements 78 
error codes 19 
function 12,39 
invoking of 39 
FORTGLG 
control statements 79 
function 12,38 
invoking of 38 
linkage edit and execute 75-77 
overriding 79-80 
user-written 77 
Cataloged procedures (H) 
compile 81 
compile and load 83,85 
execute 82-83 
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FORTHC 
control statements 82 
function 12,37 
invoking of 37 
FORTHCL 
control statements 83 
function 12,38 
invoking of 38 
FORTHCLG 
control statements 85 
error codes 19 
function 12,39 
invoking of 39 
FORTHLG 
control statements 84 
function 12,38 
invoking of 38 
linkage edit 82,84 
overriding 84-87 
user-written 83,84 
CATLG specification 35 
Chained scheduling 66,93 
Chaining records 94-95 
CHANGE statement 48 
Channel optimization 97 
Channel separation 97-98. 
Column binary mode 32 
Comment statement 14-16, 36 
Comments field 15 
COMMON 

areas 118 

boundary adjustment. of variables | in 

88-89 

in FORTRAN (H) optimization 194 

sharing data in 150. : 

compiler : 

data set assumptions 40-41 

ddnames 40 see Sen: 

main storage requirements 28,81 

names 39 

optimization 44,191-192 

options. 25, 41-44 
FORTRAN (G) 

BCD. 43 

DECK 43 

EBCDIC . 43 

ID 43-44 

LINECNT 43 

LIST 43 

LOAD 43 

MAP 43,100-102 

NAME 43 

NODECK 43 

NOID 43-44 

NOLIST 43 

NOLOAD 43 

NOMAP 43 

NOSOURCE 43 

SOURCE 43,100 
FORTRAN (H) 

BCD 43 

DECK . 43 

EBCDIC 43 

EDIT 37,44,81 

ID 43-44 

LINECNT 43 

LIST 43 

LOAD 43 
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MAP 43,100-102 
NAME 43 
NODECK 43 
NOEDIT 43-44 
NOID 43-44 


NOLIST 43 
NOLOAD 43 
NOMAP 43 
NOSOURCE 43 
NOXREF 44 
OPT 44 


SOURCE 43,100 
XREF 43,81,108 
output 
cross-reference listing. 108-109 
label map 102-103 
object module card deck 105-107 
object module listing 102-105 
source listing 100 
source map 100-102 
restrictions 96 
Statistics 165-166 
COMPL function 91,92 
Concatenation 52 
COND parameter 
error codes 19 
in EXEC statement 25 
in JOB statement 19 
Condition codes 19,89  . 
CONTIG subparameter 62-63 
Continuing control statements. 15. 
Conversion of 7-track tape 65. 
Creating data sets 58-59 : 
Cross-reference listing 44,108,109 | 
CYL subparameter 62,99. 
Cylinders, split 99. 


Data conversion 65 
Data initialization 91-92. 
DATA parameter 31... 
data set assumptions for compiler 4O-41 
Data set reference number 49-50 
Data set security 63 
Data set sequence number 50-51, 63 
Data Sets 
cataloging 13 
creating 58-59 
definition of 12 
direct access 
buffers for 71 
definition of 12 
programming considerations 93-95 
record length considerations 70 
Space requirements 62-63 
spanning considerations. 71-72 
disposition of. . 34~35 
expiration date of 64 
labels for 13 
naming 60 
organizations 12 
partitioned 
definition of 12 
FORTRAN library relationship 12 
members 12 re 
processing 12,52- 53 
using “END=" option ee 
using REWIND 53 


preallocated 56-57 
processing for input only 63-64 
processing for output only 63-64 
utility 44,81 

data spill 91 

DATA statement 91,92 

DCB parameter 32,57, 64-65, 73 

DD (data definition) statement 
examples of 58 
information specified in 28 


parameters 
asterisk (*) 31 
DATA 31 
DCB 32 
ddname 49-51 
DDNAME 60 


DISP 34-35 
DSNAME 33-34, 60 


DUMMY 60 
LABEL 63 

PASSWORD 63 

SEP 97,98 

SPACE 60,62, 98-99 
SPLIT 99 


SUBALLOC 99 
SYSOUT 31,32, 64 
UNIT 31,61 
VOLUME 61 
DDNAME parameter 60 
ddnames 40,46,49, 54-55 
Debug facility 
DISPLAY statement 189 
INIT option 189 
SUBCHK option 189 
SUBTRACE option 189 
TRACE option 189 
UNIT option 189 
DECK compiler option 43,105 
Dedicated work data set 
function of 56-57 
parameters 
DCB 57 
DISP 57 
DSNAME 57 
EXPDT/RETPD 57 
SUBALLOC 57 
UNIT 57 
VOLUME 57 
DEFER subparameter 98 
DEFINE FILE statement 
reference numbers used in 50 
with spanning 71 
use with DD statement 60 
DELETE specification 35 
Delimiter statement 14,35 
DEN subparameter 
restriction with SYSOUT 64 
specification 64,65 
Density values 65 
Device affinity 98 
Diagnostic Messages 
compiler 
FORTRAN (G) 157-165 
FORTRAN (H) 165-184.13 
extended error handling 184.14-185 
load module execution 184-14-186 
loader 113 . 
operator 186 


Direct access data sets 
buffers for 71 
programming considerations 93-95 
record length considerations 70 
space requirements 62-63 ; 
spanning considerations 71 
Directory index 12 
DISP parameter 35,57 
Dispatching priority 27 
DISPLAY statement 189 
DO loops 
implied 93 
optimization of 
FORTRAN (G) 90-91 
FORTRAN (H) 191-192 
DPRTY parameter 27 
DSN parameter 31, 33-34,60 
DSNAME parameter 30, 33-34, 57, 60 
DUMMY parameter 60 
DUMP subroutine 89-90 


EBCDIC 
compiler option 43 
mode 32 


translation 65 
EDIT compiler option 37,44,81 
Embedded blanks, use of 89 
END FILE statement 50-51 
End-of-data indicator 50-51 
END option 51,60 
ENTRY statement 48,121-122 
EP loader option 56 
EQUIVALENCE groups 88 
EQUIVALENCE statement 93,1948. 
ERR option 52 
ERR parameter 90 
Error codes 19 
Error message data set 54 
Error messages 

(see Diagnostic messages) 
Error monitor 123-124 
ERRSET subprogram 126-127 
ERRSTR subprogram 127 
ESD card 107 
exclusive references 118 
EXEC statement 

function 14 

information specified in 21 

name field 23 


parameters 
ACCT 26 
COND 25 
DPRTY 27 
PARM 25,42-44 
PGM 23,24 
PROC 23 
REGION 22,26-27 
SIZE 28,81 
TIME 26. 


Execution device classes 54 

EXPDT subparameter 57,64 

Exponent overflow 197 

Exponent underflow 197 

Extended American National Standard. 
Carriage Control Characters 187 
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Extended error handling facility | 
functional characteristics 123-124 
obtaining a traceback 125 . 
option table (see Option table) 
subprograms for using 124 
user-supplied-exit considerations 

126-127 . 


File-protected tape volumes 63 
FIND statement 95-96 
Fixed-length records 67-68, 68-69 
Fixed-point overflow 89,184.16 
Floating-point operations 
Model 91 197 
Model 195 197 
FORMAT control 
blocked records 68-70 
unblocked records 67-68 
FORTGC 
control statements 74 
function 12,37 
invoking of 37 
FORTGCL 
control statements 74 
function 12,38 
invoking of 38 
FORTGCLG 
control statements 78. 
error codes 19 
function 12,39 
invoking of 39 
FORTGLG 
control statements 75-77 
function 12,38 
invoking of 38 
FORTHC 
control statements 82 
function 12,37 
invoking of 37 
FORTHCL 
control statements 82,83 
function 12,38 
invoking of 38 
FORTHCLG . 
control statements 82,85 
error codes 19 0 
function 12,39 
invoking of 39 
FORTHLG 
control statements 82,84 
function 12,38 
invoking of 38 
FORTLIB macro instruction 8:8 
FORTRAN compiler, invoking of 139 
FORTRAN library 97 
FORTRAN record 67 
FORTRAN sequence number 50-51 


Graphic units 188 


IBCOM 111 

ID compiler option 43-44 
IEKAAOO 39 

TEWL 45 

IEWLPRGO 54. 

IEWLE150 45 
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IEWLE180 45 
IEWLF128 45 
IEWLF440 45 
IEWLF880 45 
IEYFORT 39 
IF statement 89,195-196 
Implied DO 93 
Imprecise interruptions 184.14,198 
IN subparameter 63-64 
INCLUDE statement 47,121 
inclusive references 117 
Indicators 89 
Induction variable optimization 193-194 
INIT option 189 
initialization of data 91-92 
INSERT statement 48,120-121 
Invoking cataloged procedures 

FORTGC 37 

FORTGCL 38 

FORTGCLG 39 

FORTGLG 38 

FORTHC 37 

FORTHCL 38 

FORTHCLG 39 

FORTHLG 38 
Invoking the FORTRAN compiler 139 
I/O devices 

address 31 

affinity 98 

BLKSIZE ranges for 71 

class 31 

optimization 97-98 

unit type 31,188 


Job 
assigning priority to 20 
conditions for. terminating 19° 
relationship to job step i1 
Job accounting information 17 
Job control language 
definition 11 ; 
(see also Job control statements) 
Job control statements 
coding of 14 
comment 14,36-37 
comments field 15 
continuing 15 
DD 14 
Gelimeter 14,35 
EXEC 14 
JOB 14 
name field 14 
notation for defining 16 
operand field 15 
Operation field 15 
processing of 14 
use of 11 
Job processing, examples of 140-145 
Job scheduler 14 sie 
JOB statement 
function 14 
parameters 
account number 17 
COND. 19 
MSGCLASS 20 
MSGLEVEL 18,19 
programmer's name 17 


PRTY 20 
REGION 18, 20-21 
TIME 21 
Job step 
conditions for bypassing 25 . 
main storage requirements 26-27 
relationship to job 11. 
time limits, setting of 26 
JOBLIB 29,30,49 


KEEP specification 35 
Keyword parameters 15 


Label map 102 
LABEL parameter 63 
Labels 
bypassing processing of 63 
contents of 13 
data set 13 
standard 13,63 
LET 
linkage editor option 49 
loader option 55 
overlay processing option Upkage 
editor 122 
Library, FORTRAN 97 
LIBRARY statement 47 
LINECNT compiler option 43 
LINK macro instruction 139 
Linkage conventions 148,149 
Linkage editor 
control statements 
ALIAS 48 
CHANGE 48 
ENTRY 48,121-122 
INCLUDE 47,121 
INSERT 48,120-121 


LIBRARY 47 | 
OVERLAY 48,120 
REPLACE 48 


cross-reference list 109 
ddnames 46 
device classes 46,47 
module map 109,110 
names 45 
options 
LET 49 
LIST 49 
MAP 49,109 
NCAL 49 
XREF 49,109 
overlay feature 
design 114-118 
exclusive references in 118 
inclusive references in 117 
paths 115 
processing 118-119 
processing options 
LET 122 
LIST 122 
MAP 122 
OVLY 122 
XCAL 122 
XREF 122 
segments 114-115,117 
Linkage registers 147 


LIST compiler option 43,102 
LIST linkage editor option 49 . 
LIST linkage editor overlay processing « 
option 122 
Literal constants 96 
LOAD compiler option 43 
Load module output 111-112 
Loader 
ddnames 54-55 
device classes 54 
diagnostic messages 113 
error messages 113 
input 54 
name (IEWLPRGO) 54 
options 
CALL 55 
EP 56 
LET 55 
MAP 55 
NOCALL 55 
NOLET 55 
NOMAP 55 
NOPRINT 56 
PRINT 56 
SIZE 55 
output 54,113 
priority 55 
storage map 113 
Logical backspace 70-71 


Macro instructions 
ATTACH 139. 
CALL . 139. 
FORTLIB 88 
LINK 139... 
PREFACE 127 
SETENT 127-128. 
MAP compiler option 
explanation 43 
storage maps 100-102 
MAP linkage editor option 
explanation 49 
module map 109-110 
MAP linkage editor overlay processing 
option 122 
MAP loader option 55 
Master scheduler 14 
Messages 
compiler 
FORTRAN (G) 157-165 
FORTRAN (H) 165-184.13 
extended error handling 184.14-185 
load module execution 184.14-186 
operator 186 : 
MODE subparameter 32 
Model 91 considerations 197-198 
Model 195 considerations 197-198 
MSGCLASS parameter 20 
MSGLEVEL parameter 18,19 
MXIG subparameter 63 


NAME compiler option 43 
NCAL 
linkage editor option 49 
loader option 55 
NL subparameter 63 
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NODECK compiler option 43 
NOEDIT compiler option 44 
NOID compiler option 43-44 
NOLET loader option 55 
NOLIST compiler option 43 
NOLOAD compiler option 43 
NOMAP 

compiler option 43 

loader option 55 
NOPRINT loader option 56 
NOSOURCE compiler option 43 
NOXREF compiler option 44 


Object module card deck 105-107 
Object module deck structure 107-108 
Object module listing 102-105 
Operating System/360, overview of 11-13 
Operator intervention, avoiding 63-64 
Operator messages 186 
OPT compiler option 44 
OPTCD subparameter 
chained scheduling considerations 66,93 
specification 65,66 
Optimization, channel 97-98 
Optimization, compiler 44,191-196 
Optimization facilities, FORTRAN (H) 
COMMON block considerations 194 
common expression elimination 193 
EQUIVALENCE statement considerations 
194-195 
induction variables 
loop considerations 
multidimensional arrays 
program structure i195 
programming considerations 191 
register allocation 194 
Option table 
accessing entries from 124-125 
altering 124-125 
considerations 127 
creating 127-128 
default values 127,131 
description of 123,124 
description of entries 123 
Options 
compiler 24-25,41-44 
FORTRAN (G) 
BCD 43 
DECK 43 
EBCDIC 4&3 
ID 43-44 
LINECNT 43 
LIst 43 
LOAD 43 
MAP 43 
NAME 43 
NODECK 43 
NOID 43-44 
NOLIST 43 
NOLOAD 43 
NOMAP 43 
NOSOURCE 43 
SOURCE 43 


193-194 
192-194 
194-195 


204 


FORTRAN (H) 
BCD 43 
DECK 43 
EBCDIC 43 
EDIT 44 
ID 43-44 
LINECNT 43 
LIST 43 
LOAD 43 
MAP 43,100,101-102 
NAME 43 
NODECK 4&3 
NOEDIT 44 
NOID 43-44 
NOLIST 43 
NOLOAD 43 
NOMAP 43 
NOSOURCE 43 
NOXREF 44 
OPT 44 
SOURCE 43,100 
XREF 44 
linkage editor 24-25,49 
LET 49 . 
LIstT 49 
MAP 49,109~110 
NCAL 49 
XREF 49,110 
loader 
CALL 55 
EP 56 
LET 55 
MAP 55 
NOCALL 55 
NOLET 55 
NOMAP 55 
NOPRINT 56 
PRINT 56 
SIZE 55 
overlay processing, linkage editor 
LET 122 
LIST 122 
MAP 122 
OVLY. 122 
XCAL 122 
XREF 122 
OR function 91,92 
OUT subparameter 63 
Output 
compiler 100-109 
linkage editor 109 
loader 54&~-56,113 
load module 110 
system 100-113 
Output stream 64 
Overflow 
exponent 197 
fixed-point 89,184.16 
Overlay feature 
(see Linkage Editor) 
OVERLAY statement 48,120 
OVLY linkage editor overlay processing 
option 122 


Pads, overlay 115-117 
Parameters 
keyword 15 
positional 15 


Parity 65 

PARM parameter 24-25 : 

Partitioned data sets 52-53,60 
(see also Data sets) 

PASS specification 35 

PASSWORD parameter 63 

PAUSE statement 112,186 

PDUMP subroutine 89-90 

PGM parameter 23-24,49 

Positional parameters 15 

PREFACE macro instruction 127 

PRINT loader option 56 


Priority 
dispatcher 27-28 
loader 55 


Priority schedulers 
account number relationship 17 
definition 14 
PRIVATE keyword 61 
Private volumes 61 
POC parameter 23 
Procedures, cataloged 
definition of 11-12 
for FORTRAN (G) 
compile 74 
compile and linkage edit 74-75 
compile, Tinkage edit, and execute 
TT 
FORTGC 
control statements 74 
function 12,37 
invoking of 37 
FORTGCL 
control statencuts 74 
function 12,38 
invoking of 38 
FORTGCLG 
control statements 78 
error codes 19 Poon 
function 12,39 
invoking of 39 
FORTGLG | 
control statements 75-77. 
function 12,38 — 
invoking of 38 
linkage edit and execute agate 
overriding 78-80 
user-written 77 
for FORTRAN (H) 


compile 81 
execute 82-83 
FORTHC 


control statements 85 
function 12,37 
invoking of 37 

FORTHCL 
control statements 85-86 © 
function 12, 38 
invoking of 38 

FORTHCLG 
control statements 986-87 
error codes 19 
function 12,39 
invoking of 39 
control statements 86-87 > 
“function: 912,38 
invoking of 38 


linkage edit 82 
overriding 84-87 
user-written 83-84 
invoking 12 
modifying 12 
names 12 
Processing efficiency, increasing 92-93 
Program interrupt messages 112 
Program interruption exit routine, 
Model 91 197 
Model 195 197 
programmer name 18 
PRTY parameter 19 


RECFM subparameter 
DD statement considerations 193 
specification 65,66 
Record chaining 94-95 
REF subparameter 61,62 
REGION parameter 
in EXEC statement 22,26-27 
in JOB statement 18,20-21 
REPLACE statement 48 
Requirements, system 88 
Restrictions 
BACKSPACE statement 53 
compiler 96 
DEN subparameter 64 
RETAIN keyword 61 
RETPD subparameter 57, 64 
RETURN i simulation 151 
REWIND statement 535 
RLD card 107 
RLSE subparameter 62 


Save area 146 
SAVE macro instruction 111 
Scalar variables 100 
spW 70 . a 
Segment descriptor word (SDW) 70 
Segments, overlay 114,115 
Sense lights 89 
SEP parameter 97-98 
Separation, channel 97-98 
Sequential schedulers 
account number relationship 18 
definition 14 
SER subparameter 61 
SETENT macro instruction 127-128 
7-track tape conversion 65 
SIZE option (loader) 55 
SIZE parameter 44,81 
SL subparameter 63 
SOURCE compiler option 43,100 
Source listing 100 
SPACE parameter 
for direct-access data sets 62,98-99 
specification 59,99 
Spanned records 66,69 
Spanning 67,71 
SPLIT parameter 99 
Split cylinders 99 
STACK subparameter 32 
Stacker selection 32 a 
Statistics, compiler 165-166 
STEPLIB 29,30 


Index 205 


STOP statement 89,112-113,186 
Storage locations 
bytes 88 
doublewords 88 
words 88 
Storage map 100-102,113 
Storage requirements for compiler 28,81 
Structured source listing 44,108-109 
SUBALLOC parameter 57,99 
SUBCHK option i189 
Subprograms, assembler language 
argument list 146 
calling sequence 146 
example of 152 
linkage conventions 148,149 
RETURN i simulation 151 
save area 146 
subroutine references 146 
Subroutine references 146 
SUBTRACE option 189 
SYSABEND ddname 
as abnormal termination dump data set 
29, 30 ; 
device requirements 40 
function 40 
possible device class 41 
SYSCP device class 41 
SYSDA device class 41 
SYSIN ddname 
DCB assumptions for, (H) compiler 42 
load module execution, assumptions for 
72 
device requirements 40 
function 40 
possible device class 41 
record length, (H) compiler 66 
SYSLIB ddname 46 
SYSLIN ddname 
DCB assumptions for, (H) Seatier 42. 
device requirements. 40,46 
in example 47 
function 40,46 
load module execution, assumptions for 
72 
possible device classes 41 
record length, (H) compiler 66 
SYSLMOD ddname 46,47 
SYSLOUT ddname 55 | 
SYSOUT parameter 32, 64 
SYSPRINT ddname 
DCB assumptions for, (H) compiler 42 
device requirements 40,46 
function 40, 46 
load module execution, DCB assumptions 
for 72 
possible device class 41, 46-47 
record length 66 
SYSPUNCH ddname 
device requirements 40 
function 40 
load module execution, DCB assumptions 
for 72 
possible device class 41 
record length 66 
SYSSQ ddname 41 
System output 100-113 
System requirements 88 
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SYSUDUMP ddname 
as abnormal termination data set 30 
device requirements 40 
function 40 
possible device class 41 
SYSUT1 ddname 
DCB assumptions for, (H) compiler 42 
device requirements 40,46 
function 40,46 
possible device class 41,47 
use with EDIT option 44,81 
SYSUT2 ddname 
DCB assumptions for, (H) compiler 42 
device requirements 40 
function 40 
possible device class 41 
use with XREF option 44,81 
SYS1.FORTLIB 12,45 
SYS1. LINKLIB 
concatenating with 30 
with PGM parameter 49 
as system library 23 


Tape density 64,65 
Tape units 188 
Time limits, setting of 26 
TIME parameter 21,26 
TRACE option 189 
Traceback ; 
without extended error handling 
facility 111-112 
map 123 
obtaining 125 
sample of 112 
Translation from BCD 65 
TRK subparameter 62,99. 
TRICH subparameter 64, 65 
TXT card 107 


Unblocked records. 
with FORMAT control 67-68 
without FORMAT control 70 
UNCATLG specification 35 | 
Undefined records 68 
Underflow, exponent 197 
UNIT option 189 
UNIT parameter 
dedicated work data sets 57 
explanation 31-32, 61 
unit types 187 
Unit record data sets 32,64 
Unit record equipment 187 
Utility data sets 
dedicated. 56-57 
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